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. TITLE TSTTY — TSX Terminal I/O routines 

. ENABL LC 

. ENABL AliA 

. DSABL GBL 

. CSECT TSTTY 

TSTTY: . RAD50 /TTY/ i Overlay region id 

TSTTY is the TSX module that contains routines related 
to doing I/O to the user's terminal. 

Copyright (c) 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987. 
S&H Computer Systems, Inc. Nashville, Tn. 



Macro calls 

. MCALL . READW, . PURGE, . REOPEN, . WRITW 

Global definitions 

. GLOBL PUTCHR, BUFCIIR 

. GLOBL DELCHR, CVTLC 

. GLOBL TTINCP, TSTTY, LOGCHR, LOGCR 

. GLOBL STRACT, PC3PND 

. GLOBL WRITTT, TIREAD, CSIMSG, ASKLIN 

. GLOBL PRINT, TTYOUT, TTYIN, SIGWAT, OUECHR, BUFCHR 

. GLOBL XHISET, XHIOUT, XHIIN, XTERCK, XRDTIM 

. GLOBL SETRBF, CMDB, CMDC, GTSPAC, CMDE, CMDF, CMDG, CMDH, CMDI 

. GLOBL CMDJ, CMDK, CMDL, CliDM, CMDN, CMDO, RSSPAC, SFWAC, CMDR 

. GLOBL CMOS, CMDT, CMDU, SFWL, CMDW, CMDX, CMDY, CMDZ, MAXCC 



Global references 



GLOBL *AUTO, *RBRK, *RFRSH, LSW4, R*CFST, CFACFL, *SCCA, AF*CCA, AFCF 

GLOBL SILFET, *SUSPN, WINPRT, *VBELL, LTTCR, TTCPL, AF«NPW, SUCF2 

GLOBL $RTCS, AUTSPD, DOSWIT, WPWCH, PRIVFO, PRIVSO, PRIVCO, PVNPW 

GLOBL MXSPAC, L0TSI2, LSTACT, SETERR, LSWll, «PWKEY, *NOWIN 

GLOBL TRNSTR, GTSLCH, *SLON, *SLTTY, *V52EM 

GLOBL $NOWTT, NOWA IT, FRKPR I , LSW7 

GLOBL CFARG, DISSLE, *DBKMN, *CTRLD, CXTRMN 

GLOBL LSW, LSW2, LSW3, LSW4, LSW5, LJSW, $NTGCC 

GLOBL $DILUP, *DOCFF, *DISCN, IN*ACT 

GLOBL *DETCH, *CTRLC, «1ESC, fNDICP 

GLOBL i{;SCOPE, *ECHO, CFHOLD, ILSW2, «CHACT 

GLOBL *TAB,*FORM, *NOJNT, LABTIM 

GLOBL *LC, *NOVLN, *DEFER, *NDOUT, NEDCDI 

GLOBL *NOIN, *TRNSP, LINSPC, QCOMPL 

GLOBL $CTRLO, *RBOUT, $1STCH, *CTRLW 

GLOBL *CTRLS, *DODFR, *GCECO, ^GCESC 

GLOBL *QUIET, *INKMN, $UCTLC, *SETCC, WLSCH 

GLOBL *ODTMD, *CFOPN, $CFALL, *GTLIN 

GLOBL LSWIO, *SBIT, LWINDO, WINCHR 

GLOBL LESCHR, LESRTN, LSNDCH 

GLOBL *TTERR, *CFSOT, *HITTY, *FLAGC 

GLOBL *lCTLC,ifiVTESC, HAZEL 

GLOBL S**RUN, *DEBUG, fDBGBK 

GLOBL ^DEAD 
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GLOBL BKSPAC> CR, -^UKHON 

GLOBL *LOFCF, *SUCF, LS5W9 

GLOBL LNMAP, S*OTFN, ENQTL, STOP 

GLOBL CORUSR, CFPNT. LACTIV, LINPNT 

GLOBL LINEND, LINBUF, MXCPRM, PRMPNT, LSCCA 

GLOBL CURPRM, CFEND, CFCHAN, CFBUF, *SLINI 

GLOBL LNSPAC, LSPACT. CTRLZ, CTRLC, CTRLX 

GLOBL LINNXT 

GLOBL TAB, BKSPAC, RUBOUT, FORCEX, LINSI2, LINCNT 

GLOBL BELL, LNPRIH, LF 

GLOBL TRNSFL, ESC, LTSCMD, VTSLCH, LCBIT 

GLOBL CFSPND, PR7, ACFLAG, LAFSIZ, INTPRI 

GLOBL INTPRI, PSW,DOSCHD, ESCFLG 

GLOBL INITFL, JSWLOC, STPFLG 

GLOBL LCOL, LOTSPC, LOTNXT, LOTEND, LOTBUF 

GLOBL S*OTWT, CHKABT 

GLOBL QNSPNX, QHDSPN 

GLOBL LOTPNT, FF 

GLOBL LSTATE, SPCTTY, *CCLRN, CFBLK, L INCUR 

GLOBL S*INWT 

GLOBL MAXSEC, LRBFIL, SPACE 

GLOBL LCBIT, INTPRI 

GLOBL LRDTIM, LRTCHR, LBRKCH 

GLOBL S*TTFN, VQUANl, «NOLF, S$TTSC 

GLOBL LBRKCQ, *DBGHD 

GLOBL LFWLIM 

GLOBL VT52, VTIOO, LTRMTP, VT2007, VT200S 

GLOBL UHIMEM, TTCSCH 

GLOBL *TAPE, *XSTOP, LSW6, KPAR6, LTTPAR, *CFABT 

GLOBL BRKPT, *CFDCC, ^^SCFCCL, *CFKIL 

GLOBL GETUCH, PUTUCH, VALADB, EMTBLK, FAKCMP 

GLOBL CS*EOF. CFLAG, CTRLZ, *FORMO, FF, OVRHC 

GLOBL CHNADR, EMTPS, URO, GTLTTY, LJSW, SETC, EMTXIT 

GLOBL CFIND, R*INST, CFNEST, CFSP, LSTPRM 

GLOBL PBFEND, PRMBUF, CFLFL4, INITLN 

GLOBL VINTID, LHIPCT 

GLOBL LOGBUF, LOGEND, LDGCHN, LOGBLK, ABORT, EMTADR 

GLOBL LOGPTR, LOGFLG, LF*WRT. LITIHE, LF$IN, LF$OUT 



Macro definitions: 

. iMACRO DISABL 

BIS #PR7, ©#PSW 

. ENDN DISABL 

. HACRO ENABL 

BIC INTPRI, <&#PSW 

. ENDM ENABL 



i DISABLE INTERRUPTS 



i ENABLE INTERRUPTS 



€ 

I 

I 



. MACRO OCALL ENfADD 

. IF B,ENTADD 

.ERROR ; OCALL without entry address 
. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 
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000002 000000 



000004 
000006 
000010 
000012 
000014 
000016 
000020 



000051 
000077 
000163 
000226 
000256 
000304 



000022 ' 

000051 •' 
000077 ' 
000163' 
000226 ' 
000256' 
000304 ' 



077 
077 
077 
077 
077 
077 
077 



The TTMAP and TTMAPX 
terminal character b 
register are pushed 
UNMAP or UNMAPX macr 
Rl must contain the 
are being accessed. 
The difference betwe 
macros is that the X 
used from within int 
to be running on the 
The TTMAP and UNMAP 
used in sections of 



macros are used to map kernel-mode par6 to the 
uffer arsa. The previous contents of par6 map 
on the stack and may be restored by using the 



OS. 

line index number of the line whose buffers 

en the TTMAP -UNMAP macros and the TTMAPX -UNMAPX 
-versions are more efficient but may only be 
errupt service routines where we are guaranteed 

system stack, 
versions of the macros must only be 
code where the interrupts are disabled. 



. MACRO TTMAPX 

MOV LTTP AR < R 1) , e#KPAR6 

. ENDM TTMAPX 



. MACRO UNMAPX 

. ENDM UNMAPX 

. MACRO TTMAP 

MOV @#KPAR6> MAPI il D 

MOV LTTPAR < R 1 ) . €>#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, e#KPAR6 

. ENDM UNMAP 



Data areas 



MAPHLD: . WORD 







i TEMP CELL USED BY TTMAP MACRO 



CSI table of error messages. 

CSIERR: .WORD CSEMIL 

. WORD CSEMID 

. WORD CSEPRO 

. WORD CSEMFO 

. WORD CSEMNF 

. WORD CSEMIS 

. WORD CSEMIV 

CSI text messages^ 



103 
103 
103 
103 
103 
103 
103 







. NLIST 


123 


CSEMIL 


. ASCIZ 


123 


CSEMID 


. ASCIZ 


123 


CSEPRO 


. ASCIZ 


123 


CSEMFO 


. ASCIZ 


123 


CSEMNF 


. ASCIZ 


123 


CSEMIS 


. ASCIZ 


123 


CSEMIV 


. ASCIZ 
. LIST 



BEX 

/?CSI-F-IHegai command/ 

/?CSI-F-IHegai device/ 

/?CSI-F-Protected file with same name already exists/ 

/?CSI-F-lnsuf f icient space for file/ 

/?CSI-F-Cannot find file/ 

/?CSI-F-lnval id switch/ 

/?CSI-F-Inval id switch value/ 

BEX 
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175 


000340 


001 


002 




000343 


010 


020 




000346 


100 


200 


176 









i Bit mask table used to test, 5et> and clear the activation-character 
i flags for characters. 

004 BITMSK; . BYTE 1, 2. 4> 10, 20, 40, 100, 200 
040 

. EVEN 
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013704 
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001454 




11 
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006304 
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13 
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005300 




14 
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004737 


OOOOOOG 


15 


000402 


042777 


OOOOOOG OOOOOOG 


16 


000410 


005737 


000002G 


17 


000414 


001010 




18 


000416 


032761 


OOOOOOG OOOOOOG 


19 


000424 


001404 




20 


000426 


1 1 2700 


OOOOOOG 


21 

22 
23 
24 
25 
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004737 


002662 ' 


000436 


032703 


000001 
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001430 




000444 


012702 


OOOOOOG 
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33 


000450 


105737 


OOOOOOG 


34 


000454 


001410 




35 


000456 


004737 


OOOOOOG 


36 


000462 


016100 


OOOOOOG 


37 


000466 


004737 


OOOOOOG 


38 


000472 


004737 


OOOOOOG 


39 


000476 


005302 




40 


000500 


003761 




41 


000502 


004737 


OOOOOOG 


42 


000506 


005700 




43 


000510 


001402 




44 


000512 


004737 


002662 ' 


45 


000516 


077411 




46 


000520 


000137 


001004' 


47 








48 








49 








50 


000524 


013704 


000006G 


51 
52 
53 


000530 


012702 


OOOOOOG 








54 


000534 


105737 


OOOOOOG 


55 


000540 


001410 




56 


000542 


004737 


OOOOOOG 


57 


000546 


016100 


OOOOOOG 



. SOTTL WRITTT — .WRITE emt with terminal as output device 

WRIiTT is executed when it is determined that the .WRITE emt is 
directed to the terminal device. 



i GET BUFFER ADDRESS 

; VALIDATE BUFFER ADDRESS 

GET # WORDS TO WRITE 

BR IF NO WORDS TO BE WRITTEN 

CONVERT TO # BYTES 

GET ADDRESS OF END OF BUFFER 

VALIDATE IT 

RESET CHANNEL END OF FILE FLAG 

WRITE TO BLOCK O? 

BR IF NOT 

DOES HE WANT FF ON WRITE OF BLK 0? 

BR IF NOT 

OUTPUT FF TO GET TO TOP OF FORM 



Determine if buffer is on even byte boundary 



WRITTT: MOV 


EMTBLK+4, R3 i 


MOV 


R3, RO > 


CALL 


VALADB 


MOV 


EMTBLK+6, R4 ; 


BEQ 


2* > 


ASL 


R4 ; 


ADD 


R4, RO > 


DEC 


RO 


CALL 


VALADB .: 


BIC 


#CS«EOF, ©CHNADR i 


TST 


EMTBLK+2 i 


BNE 


16* i 


BIT 


#*FORMO, LSW4(R1); 


BEQ 


16* i 


MOVE 


#FF, RO ; 


CALL 


PUTCHR 



16*: 



BIT 
BEQ 



#1, R3 
9* 



} IS BUFFER STARTING ON EVEN BYTE BOUNDARY? 
; BR IF YES 



Use slow routine if buffer is on odd byte boundary 

17*: MOV #TTCSCH, R2 ; RESET CHARACTER COUNT 

■> See if we need to interrupt tt output processing to do a job 

i scheduler cycle. 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

4*: DEC R2 ; TIME TO CHECK SCHEDULER? 

BR IF YES 

GET CHAR FROM USER'S BUFFER 
IS CHAR A NULL? 
SKIP NULLS 

PLACE IN USER'S BUFFER 
BR IF MORE CHARS TO DO 

?*: 

Use faster routine if buffer is on even byte boundary 

9*: MOV EMTBLK+6, R4 i GET NUMBER OF WORDS TO WRITE 

7$: MOV #TTCSCH, R2 ; RESET CHAR COUNT FOR CONTINUATION 

i See if we need to interrupt tt output processing to do a job 
i scheduler cycle. 

TSTB ' DOSCHD > IS JOB SCHEDULER CYCLE NEEDED? 

BEO 0* ; BR IF NOT 

CALL CHKABT i SEE IF WE HAVE BEEN ABORTED 

MOV LSTATE(R1),R0 i GET JOB'S CURRENT EXECUTION STATE 



TSTB 


DOSCHD 


BEQ 


4* 


CALL 


CHKABT 


MOV 


LSTATE<Ri),RO 


CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R2 


BLE 


17* 


CALL 


GETUCH 


TST 


RO 


BEQ 


1* 


CALL 


PUTCHR 


SOB 


R4, 4$ 


JMP 


TTFIN 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Friday IS-Dec 
WRITTT — WRITE eir.t with terminal as output device 



-87 14: 01 Page 2-1 



61 
62 



58 000552 

59 000556 

60 000562 
000564 
000566 

63 000570 

64 000572 

65 000574 

66 000600 

67 000602 

68 000604 

69 000606 

70 000610 

71 000614 

72 000616 



004737 
004737 
005302 



OOOOOOG 
0000000 



a*: 



oo: 



»i 



106523 
111600 
001402 
004737 
012600 
105000 
000300 
001402 
004737 
077416 
000137 



002662 ' 



5*; 



002662 ' 



001004' 



6*: 



CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R2 


BLE 


7* 


MFPD 


(R3) + 


MOVB 


< SP ) , RO 


BEQ 


5* 


CALL 


PUTCHR 


MOV 


(SP)+> RO 


CLRB 


RO 


SWAB 


RO 


BEQ 


6* 


CALL 


PUTCHR 


SOB 


R4, 8* 


JMP 


TTFIN 



REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

TIME TO CHECK FOR SCHEDULER CYCLE? 

BR IF YES 

GET DATA WORD FROM USER'S BUFFER 

GET LOW-ORDER BYTE OF WORD 

IGNORE IT IF IT IS NULL 

SEND CHAR TO TERMINAL 

GET DATA WORD 

CLEAR LOW-ORDER BYTE 

GET HIGH-ORDER BYTE TO LOW-ORDER 

BR IF LOW-ORDER BYTE IS NULL 

SEND CHAR TO TERMINAL 

LOOP IF MORE WORDS TO WRITE 

FINISHED 



i 
I 
f 
I 
( 
i 
f 
i 

i 
I 

i 
i 
i 
€ 

4 

i 

i 
I 
I 
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c 



3 
4 
5 
6 

7 000626 

8 000630 

9 000634 

10 000640 

11 000642 

12 000644 

13 000646 

14 000652 

15 000660 

16 000662 

17 000670 
IS 000676 

19 000700 

20 000704 

21 000706 

22 000712 
000716 
000722 
000726 
000730 

27 000732 

28 000734 

29 000740 
30 

31 000742 

32 

33 000744 

34 

35 

36 

37 000752 

38 000754 

39 000756 

40 000760 

41 000764 

42 000766 

43 000772 

44 000774 

45 000776 

46 001002 
47 



23 
24 
25 
26 



013703 
010300 
004737 
013704 
006304 
060400 
005300 
004737 
032777 
001407 
042777 
052737 
000425 
005737 
001004 
112700 
004737 
004737 
120027 
001406 
105700 
001771 
004737 
077412 

000420 

052777 



005704 
001413 
010300 
163700 
001403 
032700 
001404 
005000 
004737 
077413 



OOOOOOG 



0000040 
000777 

OOOOOOG 



. SBTTL TTREAD 



.READ emt with input from terminal 



TTREAD is executed when 
from the terminal. 



READ was issued directing input 



0000040 

OOOOOOG 
000006G 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000002G 

000136 
002662 ' 
005756 ' 
OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



TTREAD: MOV 
MOV 
CALL 
MOV 
ASL 
ADD 
DEC 
CALL 
BIT 
BEQ 
BIC 
BIS 
BR 

2*: TST 
BNE 
MOVE 
CALL 

1*: CALL 
CMPB 
BEQ 

4*: TSTB 
BEQ 
CALL 



EMTBLK+4, R3 

R3, RO 

VALADB 

EMrBLK+6, R4 

R4 

R4, RO 

RO 

VALADB 

#CS*EOF, ©CHNADR 

2* 

#CS*EOF, eCHNADR 

#CFLAG, EMTPS 

TTZERO 

EMTBLK+2 

1* 

#'■-•, RO 

PUTCHR 

GETCHR 

RO, #CTRLZ 

TTEOF 

RO 

1* 

PUTUCH 

R4> 1* 



i GET BUFFER ADDRESS 

; VALIDATE ADDRESS OF BUFFER 

GET # WORDS TO READ 

CONVERT TO # BYTES 

GET ADDRESS OF END OF BUFFER 

VALIDATE IT 

DID LAST READ GET END OF FILE? 

BRANCH IF NOT 

RESET END OF FILE FLAG 

SET C-BIT IN USER'S PS 

READ BLOCK O? 

BRANCH IF NOT BLOCK 

PRINT PROMPT CHARACTER 

GET NEXT INPUT CHAR 
CTRL-Z ==> END OF FILE 
BRANCH IF END OF FILE 
IGNORE NULLS 

j MOVE CHAR TO USER'S BUFFER 
i BR IF MORE ROOM LEFT 



SOB 

; NORMAL END OF READ 
BR TTFIN 
; END OF FILE ON INPUT FROM TT: 
OOOOOOG TTEOF: BIS #CS*EOF, ®CHNADR i REMEMBER END OF FILE HIT 



Hit end of file — Fill remainder of buffer with nulls 
TTZERO 

1*: 



?*: 



Fall 



TST 


R4 


BEQ 


TTFIN 


MOV 


R3, RO 


SUB 


EMTBLK+4, RO 


BEQ 


2« 


BIT 


#777, RO 


BEQ 


TTFIN 


CLR 


RO 


CALL 


PUTUCH 


SOB 


R4, 1* 


i ri t D 


TTFIN 



ROOM LEFT IN BUFFER7' 

BR IF NOT 

GET NEXT CHAR POSITION 

GET # CHARACTERS TRANSFERRED SO FAR 

BR IF HAVEN'T GOTTEN ANY CHARS AT ALL 

FILLED TO BLOCK BOUNDARY? 

BR IF YES 

STORE NULL TO FILL OUR BLOCK 

MOVE NULL TO USER'S BUFFER 

LOOP TO FILL REST OF USER'S BUFFER 






TSTTY — TSX Terminal I/O routi MACRO V05. 04 
TiREAD ~- .READ emt with input from terminal 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



FINISHED WITH TT READ/WR3TF 



001004 
001006 
001012 
001014 
001016 
001020 



001024 
001032 

001034 
001040 
001044 
001046 
001052 
001056 
001062 



010304 
163704 
006204 
103001 
005204 
010437 



023727 
101415 

004737 
105737 
001410 
004737 
016100 
004737 
004737 



TTFIN: 



0000040 



0000000 



?*: 



MOV 


R3, R4 


SUB 


EMTBLK+4, R4 


ASR 


R4 


13CC 


2* 


INC 


R4 


MOV 


R4, URO 



0000100 000001 



0000000 
0000000 

0000000 
0000000 

ooooooe 

0000000 



GET CURRENT BUFFER POINTER 
GET # BYTES TRANSFERED 
CONVERT TO # WORDS 
BR IF NO ODD BYTE 

RETURN # WORDS IN USER'S RO 



See if u.ie need to call user's completion routine. 



i COMPLETION ROUTINE SPECIFIED? 
.: BR IF NOT 

'5 completion routine. 
i QUEUE A COMPLETION REQUEST 
; IS JOB SCHEDULER CYCLE NEEDED? 
; BR IF NOT 

; SEE IF WE HAVE BEEN ABORTED 
iGET JOB'S CURRENT EXECUTION STATE 
; REQUEUE JOB AND CALL JOB SCHEDULER 
i SEE IF WE WERE ABORTED WHILE ASLEEP 



001066 000137 0000000 



1*: 



CMP 


EMTBLK+10, #1 


BLOS 


1* 


Enter a re 


quest to call user 


CALL 


FAKCMP 


TSTB 


DOSCHD 


BEQ 


1* 


CALL 


CHKABT 


MOV 


LSTATE<R1).R0 


CALL 


QNSPNX 


CALL 


CHKABT 


Finished 




JMP 


EMTXIT 



TSTTY — 
. PRINT 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 



001072 
001076 
001102 
001104 
001106 
001112 
001116 



013702 
020237 
101403 
010200 
004737 
004737 
000137 



0000000 
0000000 



OOOOOOG 
002460 ' 
OOOOOOG 



. SBTTL . PRINT 
PROCESS THE .PRINT EMI 



PRINT: 



1$: 



MOV 


URO, R2 


CMP 


R2, UHIMEM 


BLOS 


1* 


MOV 


R2, RO 


CALL 


VALADB 


CALL 


UOTSTR 


JMP 


EMTXIT 



;GET ADDRESS OF STRING TO PRINT 

; IS BUFFER ADDRESS IN NORMAL JOB REGION? 

i BR IF YES 

i VALIDATE ADDRESS OF BUFFER 

J PRINT THE STRING FROM USER'S BUFFER 



TSTTY ~ 
. TTYOUT 



6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
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. SBTTL . TTYOUT 
ProceBB the . TTYOUT EMT 
TTYOUT: 

See if output ring buffer i& full 



i 
f 



1 

2 
3 
4 
5 001122 



001122 
001130 



026127 
101022 



OOOOOOG 000010 



001132 
001140 
001142 
001150 



032761 
001416 
032761 
001412 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



001152 
001156 
001162 
001166 



013700 
006560 
022627 
001403 



OOOOOOG 

000002 

103776 



CMP L0TSPC<R1 )> «8. ils there plenty of free space in output bu-P? 
BHI 3* J Br if yes 

Output buffer is full. 

See if user wants to suspend job or have carry flag set on return 

BIT #NOWAIT, LJSW<R1 ); Did he request nouiait TT I/O? 

BEQ 3* ; Br if not 

BIT #*NOWTT, LSW5<R1); Did he enable no-ma it TT I/O? 

BEQ 3* i Br if not 

Output buffer is full and user has enable no-wait mode. 
See if instruction following EMT 341 is a ECS . -2 

Get address of EMT 341 instruction 

Fetch following instruction 

BCS . -2 instruction? 

Br if yes — Don't return if he will spin 

Return with carry flag set* and error code to signal that output 
buffer is full. 



MOV 


EMT ADR, RO 


MFP I 


2(R0) 


CMP 


(SP)+, #103776 


BEQ 


3* 



001170 
001172 



001176 
001202 
001210 
001212 
001216 
001220 
001224 



005000 

000137 



013700 
032761 
001003 
004737 
000402 
004737 
000137 



OOOOOOG 



OOOOOOG 
OOOOOOG 

002662 ' 

003672' 
OOOOOOG 



CLR 
JMP 



RO 
SETERR 



; Return error code O 



Transmit the character (wait if output buffer is full) 



3«: 



OOOOOOG 



GET THE CHAR TO SEND 

ARE WE IN HIGH EFFICIENCY MODE? 

BR IF YES 

SEND THE CHAR 



1*: 
2*: 



MOV URO, RO 

BIT #*HITTY,LSW4<R1). 

BNE 1 * 

CALL PUTCHR 

BR 2* 

CALL HIPUT J SEND CHAR IN HIGH EFFICIENCY MODE 

JMP EMTXIT 



TSTTY — 
. 7TYIN 
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. SBTTL 



TTYIN 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



00 
00 



1230 
1236 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



00 

00 
00 
00 



1240 
1244 
1246 
1252 
1254 
1262 
1264 
1272 
1276 
1304 
1312 
1314 
1322 
1324 
1332 
1334 
1342 
1346 



1352 

1360 
1364 
1370 



032761 
001445 



005761 
00 1 042 
004737 
103037 
032761 
001405 
052761 
004737 
042761 
032761 
001004 
032761 
001007 
032761 
001007 
052761 
004737 



042761 
004737 
1 0037 
000137 



ProcesB the . TTINR EMI 



0000000 0000000 TTYIN: 



BIT #NOWAIT, LJSW<Rl)i DID HE REQUEST NOWAIT .TTYIN? 
BEQ 1* i BR IF NOT 



User set JSW flag which says he uiants the c-flag set and 
immediate return if there are no characters available. 
We mill do this once only per end of input. 
See if any activation chars are pending. 



0000000 

007760 ' 

OOOOOOG 0000000 

0000000 OOOOOOG 

000000(3 

OOOOOOG OOOOOOG 4«: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 3*: 

OOOOOOG OOOOOOG 

011346' 2$: 

OOOOOOG 



OOOOOOG 
005756 ' 
OOOOOOG 
OOOOOOG 



OOOOOOG 1*: 



TST LACTIV<R1) ; 

BNE 1$ i 

CALL CFTEST i 

BCC 1* ; 

BIT #«LOFCF, LSW9 < R 1 ) i 

BEQ 4$ ; 

BIS #*DOOFF, LSW<R1) ; 

CALL STOP i 

BIC #*NOIN, LSW3<R1> ; 

BIT #*DBGMD.. LSW6(Rl)i 

BNE 3* ; 

BIT #*NOWTT, LSW5(R1); 

BNE 2* ; 

BIT #*FLAGC,LSW4<R1 ); 

BNE 1* i 

BIS #*FLAGC>LSW4(Rl)i 

CALL DFRREL i 

Jf-1P SETC i 



ANY ACTIVATION CHARS PENDING? 

BR IF YES 

IS INPUT COMING FROM A COMMAND FILE? 

BRANCH IF YES 

Are we processing a logoff command file? 

Br if not 

Force job logoff 

Stop job execution 

ALLOW TERMINAL INPUT TO OCCUR 

IS DEBUGGER DOING TERMINAL INPUT? 

BR IF YES — WAIT FOR ACTIVATION CHAR 

DID HE ENABLE NO-WAIT TT INPUT? 

IF YES THEN SIGNAL NO CHARS AVAILABLE 

HAVE WE ALREADY TOLD HIM ONCE? 

BR IF YES (WAIT FOR INPUT NOW) 

REMEMBER THAT WE HAVE TOLD HIM 

RELEASE DEFERRED ECHO MODE 

RETURN WITH C-FLAG SET 



Get a character 



BIC #*FLAGC>LSW4(Rl)i HAVEN'T TOLD HIM NO CHARS AVAILABLE 

CALL GETCHR ; QO GET A CHARACTER 

MOV RO, URO iMOVE TO USER'S RO 

JMP EMTXIT 



i 

€ 

i 
i 
i 

€ 
C 
€ 



TSTTY — TSX Terminal J/0 routi 
High-efficiency TTY EMi s 
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1 
2 
3 
4 

5 001374 105737 

6 001400 001403 

7 001402 004737 

8 001406 000403 

9 001410 042761 
10 001416 000137 
11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 001502 013703 

35 001506 010300 

36 001510 004737 

37 001514 013704 
30 001520 060400 

39 001522 005300 

40 001524 004737 

41 001530 005037 

42 001534 004737 

43 001540 004737 

44 001544 005237 

45 001550 005761 

46 001554 001720 
47 

48 001556 077412 

49 

50 001560 000417 

51 

52 

53 

54 

55 001562 105737 

56 001566 001405 

57 001570 016137 



001422 
001426 
001430 
001434 
001440 
001442 
001450 
001452 
001456 
001462 
001464 
001466 
001472 
001476 
001500 



013703 
010300 
004737 
013704 
001766 
032761 
001406 
004737 
004737 
077405 
000754 
004737 
004737 
07740r. 
000746 



. SBTTL High-efficiency TTY EMTs 
TURN HIGH-EFFICIENCY TTY MODE ON OR OFF. 



0000000 XHISET: TSTB 

BEQ 

005374 ' CALL 

BR 

OOOOOOG OOOOOOG 1$: BIC 

OOOOOOG HIRTN: JMP 



i TURN MODE ON OR OFF? 

; BR TO TURN IF OFF 

; TURN ON HIGH-EFFICIENCY MODE 



EMTBLK 

1* 

HION 

HIRTN 

#*HITTY, LSW4(Rl)i TURN HIGH-EFFICIENCY MODE OFF 

EMTXIT 



HIGH-EFFICIENCY OUTPUT. 



000002G 

OOOOOOG 
000004G 

OOOOOOG OOOOOOG 

OOOOOOG 
003672 ' 



OOOOOOG 
002662 ' 



XHIOUT: 



MOV 

MOV 

CALL 

MOV 

BEQ 

BIT 

BEQ 

CALL 

CALL 

SOB 

BR 

CALL 

CALL 

SOB 

BR 



EMTBLK+2, R3 

R3, RO 

VALADB 

EMTBLK+4> R4 

HIRTN 

#*HITTY. LSW4<R1) 

1* 

GETUCH 

HIPUT 

R4,2* 

HIRTN 

GETUCH 

PUTCHR 

R4, 1* 

HIRTN 



BUFFER ADDRESS 
VALIDATE THE ADDRESS 

# BYTES TO SEND 

BR IF NO CHARACTERS TO SEND 

ARE WE SENDING IN HIGH EFFICIENCY MODE? 

BR IF NOT 

GET CHAR FROM USER'S BUFFER 

SEND CHAR IN HIGH EFFICIENCY MODE 



GET CHAR FROM USER'S BUFFER 
SEND THE CHARACTER 



000002G 

OOOOOOG 
000004G 



OOOOOOG 
OOOOOOG 
005756' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



HIGH-EFFICIENCY TTY INPUT 

XHIIN: MOV EMTBLK+2, R3 

MOV R3, RO 

CALL VALADB 

MOV EMTBLK+4, R4 

ADD R4, RO 

DEC RO 

CALL VALADB 

CLR URO 

4$: CALL GETCHR 

CALL PUTUCH 

INC URO 

TST LACTIV<Ri) 

BEG HIRTN 

i NOT ACTIVATION CHARACTER. 

1*: SOB R4,4* 

i OVERFLOWED USER'S BUFFER. 

BR XTCC 



; ADDRESS OF USER'S BUFFER 
; VALIDATE THE ADDRESS 

; SIZE OF BUFFER 

i GET ADDRESS OF END OF BUFFER 

i VALIDATE THE ADDRESS 

i RETURN # CHARS GOTTEN IN RO 

i GET NEXT CHARACTER 

; MOVE CHAR TO USER 'S BUFFER 

; COUNT CHARACTERS IN USER'S RO 

; ARE THERE ANY PENDING ACTIVATION CHARS? 

i WE ARE DONE IF NOT 
SEE IF BUFFER IS FULL. 

;LOOP IF ROOM LEFT IN BUFFER 
SET C-FLAG AND RETURN. 

; RETURN WITH C-FLAG SET 



OOOOOOG 



OOOOOOG OOOOOOG 



CHECK FOR TT INPUT ERRORS. 

XTERCK: TSTB EMTBLK 
BEQ 1* 

MOV LINCNT<R1), URO 



CHECK FOR ERRORS? 

BR IF YES 

PUT # OF INPUT CHARS PENDING IN USER'S RO 



TSTTY — TSX Terminal 
High-efficiency TTY Ei' 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 



001576 
001602 
001610 
001612 
001620 



001624 
001632 
001640 
001646 



000137 
032761 
00 1 702 
042761 
000137 



I/O r o u t i 
!f B 

OOOOOOG 
0000000 

OOOOOOG 
OOOOOOG 
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013761 
013761 
052761 
000137 



000002G 
000004G 
100000 
OOOOOOG 



OOOOOOG 1$: 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



XTCC: 



JliP EMTXIT 

BIT #*TTERR, LSW4(R1); DID ANY TT INPUT ERRORS OCCUR' 

BEQ HIRTN ; BR IF NOT 

BIC #*TTERR, LSW4<R1 )i RESET ERROR FLAG 

JMP SETC ; RETURN WITH C-FLAG SET 



i START TIMER FOR TT READ REQUEST 

> 

XRDTIM: MOV EMTBLK+2. LRDTIM<R1 ) i SET 

MOV EMTBLK+4> LRTCHR(Rl>i SET 

BIS #100000, LRrCHR(Rl) i SET 

JMP EMTXIT 



TT READ TIMEOUT VALUE 
TT TIMEOUT ACTIVATION 
FLAG SAYING WE HAVE A 



<0. 5 SEC UNITS) 
CHARACTER 
TIME-OUT CHAR 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
ASKLIN — Accept line -f-r-om terminal 
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1 

2 
3 
4 
5 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



001652 
001654 
001656 
001660 
001662 



001664 
001666 
001670 
001674 
001700 



001706 
001714 
001716 
001724 



001726 
001734 
001736 
001744 
001746 
001754 



001760 
001764 
001770 



001772 
002000 



010146 
010246 
010346 
010446 
010546 



010304 
010305 
062705 
113701 
052761 



032761 
001404 
032761 
001440 



032761 
001411 
032761 
001060 
042761 
004737 



005037 
004737 
103020 



032761 
001471 



. SBTTL ASKLIN 



Accept line from terminal 



ASKLIN is an internal subroutine called from .csispc/ .csigen & . gtlin 
to print a prompt and accept a line of input from the tty or a 
command file. 



Inputs: 
R2 = Address of prompt string (in user's avBa). 
R3 = Address of buffer where accepted string is 
<Mu5t be in kernel space) 



to be stored. 



ASKLIN: MOV 
NOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
R5, -(SP) 



000120 
OOOOOOG 
0000000 OOOOOOG 



MOV 


R3, R4 


MOV 


R3, R5 


ADD 


#80. ,R5 


MDVB 


CORUSR, Rl 


BIS 


#*GTLIN, LSW4(R1) 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



Set up buffer pointer and buffer length info 

REMEMBER ADDRESS OF START OF BUFFER 
GET ADDRESS OF END OF RECEIVING BUFFER 
(GETLIN RESTRICTS BUFFER TO 81 CHARS) 
GET CURRENT USER INDEX # 
REMEMBER THAT . GTLIN IS BEING DONE 

Determine if uje need to process a deferred control-C character 
that was previously acquired from an expanded CCL command by a 
non-terminating . GTLIN 

BIT #*CFDCC. LSW4(R1);D0 WE HAVE A DEFERRED -^C? 

BE(3 10* i BR IF NOT 

BIT #GTLTTY, LJSW(Rl); IS THIS A NON-TERMINATING .GTLIN? 

BEQ 11$ ;BR IF NOT — REPORT CONTROL-C NOW 

If this is a terminating .GTLIN and we pushed a control-C 
previously due to a non-terminating . GTLIN* halt the execution 
of the program without printing prompt. 



OOOOOOG OOOOOOG 10*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*NTOCC, LSW9(Ri); Did we push a control-C? 

BEQ 20$ ;Br if not 

BIT #GTLTTY, LJSW(R1>; Is this a non-terminating .GTLIN? 

BNE 15* i Br if non-terminating .GTLIN 

BIC #*NTGCC>LSW9(R1)3 Say ctrl-C not pushed 

CALL STOP j Stop program execution 



Determine if the input is coming from a command file 



OOOOOOG 
007262 ' 



20*: 
13*: 



CLR 


CFSPND 


CALL 


GTCFCH 


BCC 


8* 



OOOOOOG OOOOOOG 



; No suspended command file yet 

; TRY TO GET A CHAR FROM COMMAND FILE 

.:BR IF GOT A CHAR FROM COMMAND FILE 

Input is not coming from a command file. 

See if we need to reenter Kmon to get next command from IND or 

from user command process-or. 

BIT #*INKMN.. LSW4(R1 ); ARE WE IN KMON NOW? 
BEQ 3* ; BR IF NOT 



f 

i 

f 

i 

c 

i 

I 

f 

« 

c 

i 

i 

I 

i 

i 

t 
I 
I 

( 



i 
i 



TSTTY — 
ASKLIN - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

7B 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



TSX Terminal I/O routi HACRO V05. 04 
- Accept line from terminal 



002002 
002010 
002012 
002016 
002024 
002026 



002032 
002036 
002040 
002046 
002050 
002054 
002060 



002062 
002070 
002072 
002076 
002100 
002104 
002106 
002114 
002116 
002124 
002126 
002134 
002142 
002146 
002150 
002154 
002162 



002164 
002166 
002170 
002174 
002176 
002204 



032761 
00 1 006 
013700 
132760 
001457 
004737 



120027 
001006 
032761 
001402 
1 1 2700 
120027 
001033 



032761 
00 1 427 
004737 
103403 
120027 
001372 
032761 
001404 
052761 
000717 
052761 
013737 
004737 
000406 
1 1 0037 
032761 
001012 



005702 
001410 
005737 
001003 
042761 



OOOOOOG OOOOOOG 

OOOOOOG 
0000000 OOOOOOG 

OOOOOOG 



11*: 
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BIT #*UKMON, LBW7<R1); IS USER COMMAND PROCESSOR ACTIVE? 

BNE 11* ; BR IF YES — GET COMMAND FROM IT 

MOV CXTRMN, RO .; GET ADDR OF SIMULATED RMON DATA FOR JOB 

BITS #IN*ACT, R*INST(RO); IS INPUT BEING PROVIDED BY IND? 

BEQ 3* i BR IF NOT 

CALL STOP ■> REENTER KMON AND GET NEXT COMMAND FROM IND 



OOOOOOG 8$: 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



16* 



We got a character from a control file. 

See if character is a control-C or control-Z. 

Note: uje treat ctri-Z the? same as ctrl~-C if KMON is reading file. 

IS CHAR CTRL-ZT-- 

BR IF NOT 

IS KMON READING FILE? 

BR IF NOT 

TRANSLATE CTRL-Z TO CTRL~C 

IS CHAR CTRL-C? 

BR IF NOT -^C 



CMPB 


RO, #CTRLZ 


BNE 


16* 


BIT 


#*INKMN, LSW4(R1) 


BEG 


16* 


MOVB 


#CTRLC, RO 


CMPB 


RO, #CTRLC 


BNE 


7* 


Character 


is control-C. 



There are 3 cases to deal with: 

1. This is not a non-terminating . GTLIN. In this case we simply 
accept the ctrl-C which terminates the execution of the program. 

2. This is a non-terminating .GTLIN and uje are getting characters 
from an expanded CCL command. In this case, we defer the ctrl-C 
processing until the next non-terminating .GTLIN is done. 

3. This is a non-terminating .GTLIN and me are not getting characters 
from an expanded CCL command. In this case we defer the ctrl-C 
and get characters from the terminal. 



OOOOOOG OOOOOOG 

007262' 14*: 

OOOOOOG 

OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 12*: 
OOOOOOG OOOOOOG 
010016' 

OOOOOOG 7*: 

OOOOOOG OOOOOOG 



BIT #GTLTTY.. LJSW<R1 

BEQ 7* 

CALL GTCFCH 

BCS 15* 

CMPB RO, #LF 

BNE 14* 

BIT #*CFCCL, LSW4<R1 

BEQ 12* 

BIS #*CFDCC, LSW4<R1 

BR 13* 

BIS #*NTGCC , L5W9 ( R 1 

MOV CFPNT, CFSPND 

CALL CFSTOP 

BR 3* 

MOVB RO, CFHOLD 

BIT #*QUIET, LSW4<R1 

BNE 1* 



); IS THIS A NON-TERMINATING .GTLIN? 
; BR IF NOT — GO TERMINATE PROGRAM 
;SKIP TO END OF LINE THAT HAS '^C 

; REACHED END OF LINE? 

i LOOP IF NOT 
); IS THIS THE END OF AN EXPANDED CCL COMMAND? 

i BR IF NOT 
) J REMEMBER WE HAVE A DEFERRED CONTROL-C 

J GO BACK AND GET NEXT CHAR FOLLOWING CONTROL-C 
)iPush a control-C for next .GTLIN 

; SAVE COMMAND FILE POINTER — Suspend file 

j Suspend command file input 

;PUSH COMMAND FILE CHAR 
))ARE WE LISTING THE COMMAND FILE? 
;BR IF NOT — DON'T LIST PROMPT THEN 



List prompt string 



3*: 



OOOOOOG 
OOOOOOG OOOOOOG 



004737 002460 



il*: 



TST 
BEd 
TST 
BNE 
BIC 
CALL 



R2 
1* 

CFPNT 
21* 



; Is there a 

; Br if not 

; Is input coming 

; Br if yes 



prompt string to print? 

from a command file? 



#*CTRLO, LSW3<R1 )i Reset control-O 



UOTSTR 



j Print the prompt 



TSTTY - 


- TSX Terminal I/O routi 


HACRO V 


ASKLIN - 


— Accep 


t line f 


rom terminal 


115 










116 










117 










lis 


002210 


005737 


0000000 




119 


002214 


001003 






120 


002216 


052761 


OOOOOOG 


OOOOOOG 


121 


002224 


004737 


005756' 




122 


002230 


042761 


OOOOOOG 


OOOOOOG 


123 


002236 


120027 


OOOOOOG 




124 


002242 


001424 






125 


002244 


120027 


000041 




126 


002250 


001005 






127 


002252 


004737 


005756 ' 




128 


002256 


120027 


OOOOOOG 




129 


002262 


001373 






130 


002264 


020305 






131 


002266 


101350 






132 


002270 


110023 






133 


002272 


120027 


OOOOOOG 




134 


002276 


001344 






135 


002300 


032761 


OOOOOOG 


OOOOOOG 


136 


002306 


001740 






137 


002310 


004737 


OOOOOOG 




138 


002314 


020304 






139 


002316 


001734 






140 


002320 


105043 






141 










142 










143 










144 


002322 


013700 


OOOOOOG 




145 


002326 


001404 






146 


002330 


004737 


010042' 




147 


002334 


005037 


OOOOOOG 




148 


002340 


042761 


OOOOOOG 


OOOOOOG 


149 


002346 


012605 






150 


002350 


012604 






151 


002352 


012603 






152 


002354 


012602 






153 


002356 


012601 






154 


002360 


000207 
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1*: 



Get the input line 

TST CFPNT 

BNE 19* 

BIS #*CFABT, LSW6<R1) 

19*: CALL GETCHR 

B.TC #*CFABT.- LSW6<R1) 

CMPB RO, #LF 

BEQ 2* 

CMPB RO, #'f 

BNE 17* 

IS*: CALL GETCHR 

CMPB RO, #CR 

BNE 1 8* 

17*: CMP R3. R5 

BHI 1* 

MOVE RO, (R3) + 

CMPB RO, #CTRLZ 

BNE 1* 

BIT #*INKMN, LSW4(R1) 

BEQ 1* 

CALL STOP 

CMP R3, R4 

BEQ 1* 

CLRB -(R3) 



?*: 



Input coming from a command file? 

Br if yes 

If ctrl-C received* abort command files 

GET AN INPUT CHAR 

Clear command file abort flag 

REACHED END OF LINE? 

BR IF YES 

START OF COMMENT? 

BR IF NOT 

SKIP OVER REST OF COMMENT 

LOOP TILL WE REACH END OF COMMENT 

ARE PAST THE END OF THE BUFFER? 

BR IF YES (DISCARD THE CHARACTER) 

MOVE CHAR TO BUFFER 

IS CHAR CTRL-Z? 

BR IF NOT 

IS KMON DOING . GTLINE? 

BR IF NOT KMON 

TERMINATE PROGRAM IF CTRL-Z HIT 

IGNORE THE LF IF IT IS AT START OF LINE 

REPLACE CR WITH NULL 



Finished getting input lint? 



5*: 



MOV 

BEQ 

CALL 

CLR 

BIC 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



CFSPND, RO 

5* 

CFSTRT 

CFSPND 

#*GTLIN, LSW4 (Rl ); SAY 

(SP)+, R5 

(SP)+, R4 

<:SP)+, R3 

( SP ) +, R2 

(SP)+, Rl 



i GET ©FILE POINTER 
; BR IF NO NEED TO REPLACE 
j Restart command file input 
;SAY THERE IS NO SUSPENDED COMMAND FILE 
GTLIN EMT IS FINISHED 
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1 

2 








3 








4 








5 








6 








7 


002362 


010046 




S 


002364 


010146 




9 


002366 


010246 




10 


002370 


113701 


OOOOOOG 


11 


002374 


112200 




12 


002376 


00 1 406 




13 


002400 


120027 


000200 


14 


002404 


001413 




15 


002406 


004737 


002662 ' 


16 


002412 


000770 




17 


002414 


112700 


000015 


18 


002420 


004737 


002662 ' 


19 


002424 


112700 


000012 


20 


002430 


004737 


002662 ' 


21 


002434 


012602 




22 


002436 


012601 




23 


002440 


012600 




24 


002442 


000207 




25 








26 








27 








28 








29 








30 








31 








32 








33 








34 


002444 






35 


002444 


006302 




36 


002446 


016202 


000004 ' 


37 


002452 


004737 


002362 ' 


38 


002456 


000207 
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. SBTTL OUTSTR — Print a system message on the user's console 

OUTSTR is called to print a system message on the user's terminal. 
Inputs: 
R2 = Address of ASCIZ string to be printed (in kernel space). 



;GET USER'S INDEX # 

; GET NEXT CHAR OF MESSAGE 

; BRANCH WHEN END HIT 

i STOP WITHOUT CR-LF? 

i BRANCH IF YES 

; OUTPUT THE CHARACTER 

■> PUT OUT CR-LF 



OUTSTR: 


MOV 


RO, -<SP) 




MOV 


Rl, -<SP) 




MOV 


R2, -<SP) 




MOVB 


CORUSR, RJ 


1*: 


MOVE 


<R2)+, RO 




BEQ 


2* 




CMPB 


RO, #200 




BEQ 


9* 




CALL 


PUTCHR 




BR 


1* 


2*: 


MOVB 


#15, RO 




CALL 


PUTCHR 




MOVB 


#12, RO 




CALL 


PUTCHR 


9%: 


MOV 


(SP)+, R2 




MOV 


<SP)+, Rl 




MOV 


(SP)+, RO 




RETURN 






. SBTTL 


CSIMSG — 



- Print a CSI asciz error message 



CSIMSG is called to print a CSI asciz error message on the user's 
terminal . 



Inputs: 
R2 = CSI error message code. 



CSIMSG: 



ASL R2 ■> MULTIPLY BY TWO 

MOV CSIERR(R2>,R2 ; INDEX TO THE CORRECT ERROR STRING 

CALL OUTSTR ; PRINT THE ERROR MESSAGE 

RETURN i RETURN TO CONTINUE PROCESSING 
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UOTSTR 



print an astiz user's message on the user's console 



1 
2 
3 
4 
5 
6 
7 
8 
9 002460 

10 002462 

11 002464 

12 002466 

13 002470 

14 002472 

15 002476 

16 002502 

17 002506 

18 002512 

19 002514 

20 002516 

21 002520 
22 

23 
24 

25 002522 

26 002526 

27 002532 

28 002534 

29 002540 

30 002544 

31 002550 

32 002554 

33 002556 

34 002560 

35 002562 

36 002564 

37 002566 

38 002570 

39 002572 

40 002576 

41 002600 

42 002602 

43 002604 

44 002606 

45 002610 

46 002612 

47 002616 

48 002620 

49 002622 

50 002624 

51 002626 

52 002632 

53 002636 

54 002642 

55 002646 

56 002650 

57 002652 



010046 
010146 
010246 
010346 
010446 
012704 
113701 
012703 
032702 
00 1 420 
005302 
106522 
000426 



012704 
105737 
001410 
004737 
016100 
004737 
004737 
005304 
003761 
106522 
111600 
001417 
120003 
001413 
004737 
012600 
105000 
000300 
001410 
120003 
001416 
004737 
000756 
005726 
000411 
005726 
112700 
004737 
112700 
004737 
012604 
012603 
012602 



. BBTTL UOTSTR — print an asciz user's message on the user's console 

UOTSTR is called to print an asciz message that is stored in the 
user ' s area. 

I n p u t & : 
R2 = Address of asciz string to be printed (in user's space). 



0000000 
0000000 
000200 
000001 



UOTSTR: MOV 


RO, -<SP) 


MOV 


R 1 , - < SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


#TTCSCH> R4 


MOVB 


CORUSR.Rl 


MOV 


#200, R3 


BIT 


#1,R2 


13 EG 


3* 


DEC 


R2 


MFPD 


(R2) + 


BR 


4* 



OOOOOOG 
000000(5 

0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 



002662 



002662 



SET CHARACTER COUNTER FOR SCHEDULING CALL 

GET USER'S INDEX # 

GET CHAR USED TO STOP STRING WITHOUT CR-LF 

IS BUFFER ON EVEN OR ODD BYTE BOUNDARY? 

BR IF ON EVEN BYTE BOUNDARY 

POINT TO 1ST BYTE OF WORD 

GET WORD CONTAINING BYTE 



See if ute need to interrupt output processing for a job scheduling cycle. 

RESET THE CHARACTER COUNT FOR SCHEDULING CALL 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

3*: DEC R4 ; TIME TO CHECK FOR SCHEDULER CYCLE? 

BR IF YES 
GET WORD WITH 
GET NEXT BYTE 
BR IF NULL AT 
IS CHAR #200? 

IF YES THEN END STRING WITHOUT CRLF 
SEND CHAR TO TERMINAL 

4$: MOV (SP)+, RO i GET WORD WITH CHAR IN HIGH-ORDER BYTE 

CLEAR LOW-ORDER BYTE 
MOVE HIGH-ORDER BYTE TO LOW-ORDER 
BR IF NULL AT END OF STRING HIT 
IS THIS 200 AT END OF STRING? 
BR IF YES 

SEND CHAR TO TERMINAL 
GO SEND MORE CHARS 
CLEAN OFF STACK 



000015 
002662 ' 
000012 
002662 ' 



10*: 

5*: 
2$: 



9$: 



MOV 


#TTCSCH, R4 


TSTB 


DOSCHD 


BEQ 


3* 


CALL 


CHKABT 


MOV 


LSTATE(R1),R0 


CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R4 


BLE 


1* 


MFPD 


(R2) + 


MOVB 


(SP). RO 


BEQ 


5* 


CMPB 


RO, R3 


BEQ 


10* 


CALL 


PUTCHR 


MOV 


(SP)+, RO 


CLRB 


RO 


SWAB 


RO 


BEQ 


2* 


CMPB 


RO, R3 


BEQ 


9* 


CALL 


PUTCHR 


BR 


3* 


TST 


(SP) + 


BR 


9* 


TST 


(SP) + 


MOVB 


#15, RO 


CALL 


PUTCHR 


MOVB 


#12, RO 


CALL 


PUTCHR 


MOV 


( SP ) +, R4 


MOV 


(SP)+, R3 


MOV 


( SP ) +, R2 



NEXT 2 BYTES OF STRING 

OF STRING 

END OF STRING HIT 



; CLEAN OFF STACK 
; PUT OUT CR-LF 
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58 002654 012601 

59 002656 012600 

60 002660 000207 



MOV 


(SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 002662 
12 
13 
14 
15 

16 002662 

17 002670 
IS 002672 
19 

20 
21 



. SBTTL 

. SBTTL #* Proqram Level Output Character Processing ■«•# 

. SBTTL PUTCHR -- Bend character to terminal 

PUTCHR is called to queue- a character to be sent to a terminal. 

Inputs: 
RO = Character to be sent. 
Rl = Virtual line numbeT-. 



002676 
002704 
002706 
002714 
002716 



23 
24 
25 
26 
27 
2S 
29 

30 002722 

31 002726 

32 002734 

33 002736 
34 

35 
36 
37 

38 002742 

39 002750 

40 002752 

41 002756 
42 

43 

44 

45 002760 

46 

47 

40 

49 

50 002764 
002772 
002774 

53 003000 

54 

55 

56 

57 



032761 
001402 
000137 



032761 
001406 
032761 
001057 
004737 



042700 
032761 
00 1 002 
042700 



OOOOOOG 0000000 
003672 ' 

OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



177400 

OOOOOOG OOOOOOG 



H'TCHR: 

If line is in "high efficiency" mode, bypass a lot of normal 
processing and use the high efficiency version of PUTCHR. 

BIT #*HITTY, LSW4(Ri ); Is this line in high efficiency mode? 

BEQ 1* ; Br if not 

JMP HIPUT J Use high efficiency version of PUTCHR 

Return immediately if the line has disconnected 

BIT #<$DISCNf$CTRLC>, LSW<R1) i Has job disconnected? 

BEQ 2* ;Br if not 

BIT #*NOIN> LSW3(R1 ) ; Are we doing logoff processing noui? 

BWE 9* > Br if yes — return immediately from PUTCHR 

CALL STOP ; Terminate execution of job and enter KMON 

Mask character to 7 or 8 bits depending on setting of EIGHTBIT option. 



1*: 



177600 



032761 
001403 
004737 
103436 



OOOOOOG OOOOOOG 
004052 ' 



110061 OOOOOOG 



51 
52 



032761 
001403 
052700 
000415 



OOOOOOG OOOOOOG 
OOOOOOG 



iS*' BIC #--^C<:377>, RO ;Mask character to 8 bits 

BIT #*8BIT, LSW2<R1 ) ;Is eightbit support option selected? 

BHE 8* i Br if yes 

BIC #'^C<177>, RO iMask character to 7 bits 

See if we should suppress output from programs such as 

EDIT* TECO, and DIBOL which try to echo characters themselves. 

S*: BIT #*NOOUT, LSW3<Ri)i Is output echo suppression in effecf? 

BEQ 3* ;Br if not 

CALL ESCHK i See if we should discard this character 

BCS 9* i Br if we should discard this character 

Remember the last character output to this line 

3$: MOVB RO, LSNDCH(R1 ) j Remember last character sent to line 

If character is being sent in transparent mode, set transparent 
flag for this character 

BIT #*TRNSP, LSW3<R1 ); Is line is transparency mode? 

BEQ 4* ; Br if not 

BIS #TRNSFL> RO ; Set transparency flag for this character 

BR 5* 

Determine if this character is a leadin character or part of 
a lead-in function sequevice. 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 



003002 005761 OOOOOOG 

003006 001403 

003010 004737 004250' 

003014 000417 

003016 120037 OOOOOOQ 



4*; 



6«: 



0030= 



001004 



003024 012761 004304' OOOOOOG 
003032 000410 



Are me processing a lead-in function now? 
Br if not 

Process the lead-in function 
Finished with character 
Is this the lead-in character? 
Br if not 
#GTCM1, LTSCMD(R1 )> Say uie are starting a lead-in function 

; Finished with character 

See if we should write this character to the terminal log file 



TST 


LTSCMD(Rl) 


BEQ 


6* 


CALL 


LI FUN 


BR 


9* 


CMPB 


RO, VTSLCH 


BWE 


5* 


MOV 


#GTCM1, LTS 


BR 


9* 



003034 032737 OOOOOOG OOOOOOG 5*: 

003042 00 1 402 

003044 004737 010714' 



BIT #LF*OUT, LOGFLG ; Are we logging output characters? 

BEG 7* J Br if not 

CALL LOGCHR J Log this character 



i We have done the highest level processing associated with 
; PUTCHR. Now call PUTCHl to do the next level of processing. 



003050 004737 003056 ' 



003054 000207 



7*: CALL PUTCHl 
; Finished 
9$: RETURN 



J Queue character for terminal 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Friday 18~Dec-87 14; OJ. Page 13 
PUTCHl — Queue character for terminal 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



SBTTL PUTCHl — Oueue character for terminal 



003056 



003056 032761 0000000 OOOOOOG 
003064 001015 



003066 032761 OOOOOOG OOOOOOG 

003074 001403 

003076 005737 OOOOOOG 

003102 001006 



PUTCHl is the second level of character queueing routines. 
Calling this routine rather than PUTCHR bypasses the following 
character processing operations: 

1. Stop the job if it is disconnected. 

2. Echo suppression. 

3. Transparent character flagging. 

4. TSX lead-in function processing. 

5. Terminal logging. 

Inputs: 
RO = Character to be queued for the terminal. 
Rl = Virtual line number of the terminal. 

PUTCHl ; 

If this is a detached job, discard its output 

BIT #*DETCH>LSW(R1) .ils this a detached job? 

13NE 9* i Br if yes — discard its output 

If we are in a command file and program output is being suppressed* 
discard this character. 

BIT #*CFSOT, LSW4<R1 )i Should we suppress command file output? 

BEQ 1* i Br if not 

TST CFPNT ; Is input coming from a command file? 

BNE 9* i Br if yes — discard this character 

If Control-0 has been typed, discard this character 



003104 032761 OOOOOOG OOOOOOG 1*: 
003112 001002 



BIT #*CTRLO, LSW3<Rl);Has ctrl-0 been typed? 

BNE 9* j Br if yes — discard this character 



We want to queue this character for the terminal. 
Call PUTCH2 to do the next level of processing 



003 1 1 4 004737 003 1 22 ' 



003120 000207 



CALL PUTCH2 
Finished 
9$: RETURN 



; Queue character for the terminal 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 003122 010246 
16 
17 
IS 
19 

20 003124 032700 0000000 

21 003130 001015 
22 

23 
24 

25 003132 

26 003136 
27 
28 
29 
30 

31 003140 

32 003142 

33 003144 

34 003150 
35 
36 
37 
38 

39 003152 

40 003156 

41 003160 
42 
43 
44 

45 003164 
46 
47 
48 

49 003170 

50 003172 
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020027 000037 
101005 



010002 

006302 

004772 003174' 

000407 



120027 OOOOOOG 

00 1 402 

105261 OOOOOOG 



004737 003462 ' 



012602 
000207 



. SBTTL PUTCH2 



(iueue character for a terminal 



PUTCH2 is the third level of character processing associated uiith 
PUTCHR. Calling PUTCH2 rather than PUTCHl bypasses the following 
character processing operations: 



1. Discarding output for detached jobs. 

2. Suppressing output while inside command file. 

3. Suppressing output if Control~0 typed. 

Inputs: 
RO = Character to be queued for the terminal. 
Rl = Virtual line index number. 



PUTCH2: MOV 



R2, -<SP) 



If character is being sent in transparency mode* by pass 
keeping track of its position. 



BIT 
BNE 



#TRNSFL, RO 
2* 



;Is character in transparency mode? 

.: Br if yes 



Determine if this is a regular or control character. 



3$: 



CMP 
BHI 



RO, #37 
1* 



;l5 this a control characterT' 
j Br if not 



This is a control character. 

Call appropriate routine to process it. 



MOV 
ASL. 
CALL 
BR 



RO, R2 

R2 

@PC2VEC(R2) 

9* 



Get character 

Convert character to word table index 

Call processing routine 

Finished with character 



1$: 



CMPB 


RO, #RUBOUT 


BEQ 


2* 


INCB 


LC0L(R1 > 



This is a regular character. 
Keep track of cursor position. 

i Is this a rubout character? 

; Br if yes 

; Advance cursor column position 

Insert this character into the terminal buffer 

CALL QUECHR > Insert character into terminal buffer 

Finished 

9*: MOV <SP)+, R2 
RETURN 
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1 

2 






3 






4 






5 






6 






7 






S 






9 






10 


003174 


003274 ' 


11 


003176 


003274 ' 


12 


003200 


003274 •' 


13 


003202 


003274 •■ 


14 


003204 


003274 ' 


15 


003206 


003274 ' 


16 


003210 


003274 ' 


17 


003212 


003274 ' 


18 


003214 


003302 •' 


19 


003216 


003334 ' 


20 


003220 


003274 ' 


21 


003222 


003274 ' 


22 


003224 


003420 ' 


23 


003226 


003322' 


24 


003230 


003274 •' 


25 


003232 


003274 ' 


26 


003234 


003274 ■' 


27 


003236 


003274 ' 


28 


003240 


003274 ' 


29 


003242 


003274 ' 


30 


003244 


003274 ' 


31 


003246 


003274 ' 


32 


003250 


003274' 


33 


003252 


003274 ' 


34 


003254 


003274 ' 


35 


003256 


003274 ' 


36 


003260 


003274 ' 


37 


003262 


003274 ' 


38 


003264 


003274 ' 


39 


003266 


003274 ' 


40 


003270 


003274 ' 


41 


003272 


003274 ' 



Vector of addresses of character processing routines for 
control characters encountered by PUTCH2. 

On entry to the processing routine> the folloiuing registers will 
be set up: 

RO = Character 

Rl = Virtual line number 



PC2VEC: 


. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCBS 




. WORD 


PCCHT 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCFF 




. WORD 


PCCCR 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 




. WORD 


PCCINS 



00 


- NUL 


01 


- SOH 


02 


- STX 


03 


~ ETX 


04 


- EOT 


05 


- ENQ 


06 


~ ACK 


07 


" BEL 


10 


- BS 


11 


" HT 


12 


-- LF 


13 


- VT 


14 


_ pF 


15 


- CR 


16 


- SO 


17 


- SI 


20 


~ DLE 


21 


- DCl 


22 


-• DC 2 


23 


" DC3 


24 


- DC4 


25 


- NAK 


26 


- SYN 


27 


- ETB 


30 


- CAN 


31 


- EM 


32 


- SUB 


33 


- ESC 


34 


- FS 


35 


~ OS 


36 


- RS 


37 


- US 



i 
I 
I 
f 
< 
I 
< 
I 
I 

f 
i 

€ 
« 

( 

I 
i 
i 
i 

4 

4 
i 



TSTTY — TSX Terminal I/O routi 
PUTCH2 — Queue character for a 
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terminal 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



003274 
003300 



003302 
003306 
003310 
003314 
003320 



003322 
003326 
003332 



003334 
003336 
003342 
003350 
003352 
003356 
003362 
003364 
003370 
003372 
003374 
003400 
003404 
003410 
003414 
003416 



003420 
003426 
003430 
003432 
003436 
003442 
003446 
003450 
003452 
003454 
003460 



004737 
000207 



105361 
002002 
105061 
004737 
000207 



105061 
004737 
000207 



010246 
116102 
032761 
OOIOU 
1 1 2700 
004737 
005202 
032702 
001372 
000406 
004737 
062702 
042702 
110261 
012602 
000207 



032761 
001012 
010246 
012702 
112700 
004737 
077203 
012602 
000402 
004737 
000207 



00346J 



Processing routines for control characters sent to terminal through 
PUTCH2. 

Normal control character. 

Insert into terminal buffer but do not affect cursor position. 

i Put char into terminal buffer 



0000000 

OOOOOOG 
003462 ' 



PCCINS: 


CALL 
RETURN 


QUeCHR 


i Back 


space — 


Backup c 


PCCBS: 


DECS 


LCOL(Rl) 




BGE 


1* 




CLRB 


LCOL(Rl) 


1*: 


CALL 
RETURN 


QUECHR 



J Backup cursor position 

; Br if didn't go past front of line 

i Don't allou; to go to left of line start 

i Queue the character 



Carriage return 



OOOOOOG 
003462 ' 



OOOOOOG 
OOOOOOG 

000040 
003462 ' 

000007 



003462 ' 
000010 
000007 
OOOOOOG 



OOOOOOG 



PCCCR: 


CLRB 


LC0L<R1) 






CALL 


QUECHR 






RETURN 






Tab 


— Trans 


late to spaces 


PCCHT: 


MOV 


R2, -<SP) 






MOVE 


LC0L<R1),R2 






BIT 


#*TAB, LSW2<R1 ) 






BNE 


1* 






MOVB 


#' ,R0 


2$: 




CALL 


QUECHR 






INC 


R2 






BIT 


#7, R2 






BNE 


2* 






BR 


9* 


1$: 




CALL 


QUECHR 






ADD 


#8. . R2 






BIC 


#7, R2 


9*: 




MOVB 


R2, LCOL(Rl) 






MOV 


<SP)+, R2 






RETURN 





Say cursor is at left margin 
Queue the character 



Get current column position 

Should we simulate tabs? 

Br if not 

Get space character 

Send a space 

Advance cursor position 

Are we up to next tab stop? 

Loop if not 

.: Send the tab character to the terminal 
i Bound up to next tab stop 

ji Save new cursor position 



Form feed — See if lue should translate to spaces 



OOOOOOG OOOOOOG PCCFF: 



000010 
OOOOOOG 
003462 ' 



003462 ' 



If: 



2$: 
9*: 



#*FORM, LSW2<R1 ) > Should we simulate form-feeds? 

; Br if not 

; Put out 8 LF characters 

i Get line feed character 

i Send a 1 ine feed 

/Loop till all line feeds sent 



j Send FF character to terminal 



BIT 


#*FORM, L 


BNE 


2« 


MOV 


R2, -<SP) 


MOV 


#8. > R2 


MOVB 


#LF, RO 


CALL 


QUECHR 


SOB 


R2, 1* 


MOV 


<SP)+, R2 


BR 


9* 


CALL 


QUECHR 


RETURN 





TSTTY ■ 
QUECHR 



TSX Terminal 1 
- Queue charart 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



003462 



003462 
003466 
003470 
003476 
003500 
003506 



005761 
001410 
032761 
001004 

103402 
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. SBTTL QUECHR — Queue character for transmission 

QUECHR is called to queue a character for transmission. 

If the job has display windowing turned on. the character is passed 

to the window manager before being queued for transmission. 

Inputs: 
RO - Character to be queued. 
Rl = Virtual terminal number. 

QUECHR : 

See if display windowing is turned on for this line 



OOOOOOG 
0000000 OOOOOOG 



003510 004737 003516' 



003514 000207 



TST LWIND0<R1) ils job doing display windowing? 

BEQ 1* ;13r if not 

BIT #*NOWIN» LSWl 1 (Rl )> Are we suppressing windowing now? 

BNE 1* i Br if yes 

OCALL WINCHR ; Pass character to window manager 

BCS 9* ; Br if we should not display this char 

Queue the character for transmission 

1*: CALL BUFCHR i Queue character for transmission 

Finished 
9*: RETURN 



TSTTY ■ 
BUFCHR 
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— Insert char or suspend if full 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL BUFCHR — Insert char or suspend if full 



003516 010246 



003520 



003526 026127 0000000 000010 

003534 101016 

003536 105737 OOOOOOG 

003542 001404 

003544 005761 OOOOOOG 

003550 003010 

003552 000442 



003554 004737 005674 ' 

003560 032761 OOOOOOG OOOOOOG 

003566 001754 

003570 000433 



BUFCHR is called to queue a character for a terminal. 

If there is adequate space in the terminal output buffer the character 
is inserted. If there is not adequate space the job is suspended 
until space becomes available in the output terminal buffer. 

Inputs: 
RO = Character to be queued. 
Rl = Virtual terminal number. 

BUFCHR: MOV R2, -<SP) 

Disable interrupts 

1*: DISABL i ** Disable «•)«■ 

; See if there is room in the output buffer for the character 

Is there plenty of free space in buffer? 

Br if yes 

Are we running at interrupt level? (echoing) 

Br if not at interrupt level 

Allou) char echoing to use all of buffer 

Br if buffer not completely full 

Discard char if no space for echo 

Output buffer is full. 

Suspend job's execution and wait for buffer space to becom available. 

3*: CALL PCSPND ; Suspend execution of job *■» Enable ** 

BIT #*CTRLO, LSW3<R1 )i Was Ctrl-0 typed while we were asleep? 

BEO 1* >Br if not 

BR 9* /Discard character if ctrl-0 typed 

There is room for the character in the output buffer 
Insert character into the buffer 



CMP 


L0TSPC<R1), #8. 


BHI 


2* 


TSTB 


FRKPRI 


BEQ 


3* 


TST 


L0TSPC<R1> 


BGT 


2* 


BR 


9« 



003572 005361 OOOOOOG 

003576 016102 OOOOOOG 

003602 

003616 110022 

003620 

003626 020261 OOOOOOG 

003632 103402 

003634 016102 OOOOOOG 

003640 010261 OOOOOOG 



003644 

003652 004777 OOOOOOG 

003656 000403 



:*: 



4*: 



DEC 


L0TSPC<R1) 


MOV 


L0TNXT<R1),R2 


TTMAP 




MOVB 


R0> (R2> + 


UNMAP 




CMP 


R2, LOTeND(Rl) 


BLO 


4* 


MOV 


L0TBUF(R1),R2 


MOV 


R2, L0TNXT(R1> 



Decrease free space count for buffer 
Get pointer to next free cell in buffer 
Map kernel PAR 6 to TT buffer 
Move character into TT buffer 
Remap kernel PAR 6 to job context block 
Did we move beyond end of buffer? 
Br if not 

Wrap around to front of buffer- 
Save next-character pointer 



Start transmitter for this line 



003660 



ENABL 

CALL 

BR 

F i n i s h e d 

9*: ENABL 



©TRNSTR 
10* 



i *«■ Enable ««• 

; Start transmitter for this line 



; «■* Enable ** 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Friday 18-Dec-S7 14:01 Page 18-1 
BUFCHR — Insert char or suspend if full 

58 003666 012602 10*: MOV (SP>+, R2 

59 003670 000207 RETURN 



TSTTY 
HIPUT 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
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— High efficiency PUTCHR 

. SBTTL HIPUT — High efficiency PUTCHR 



HIF^Uf — Routine to move a character to the terminal output buffer 
and print it in high efficiency mode. 



Inputs: 
RO = Character to be sent. 
Rl = Virtual line number of job. 



003672 

003672 010246 



003674 032761 

003702 001061 

003704 032761 

003712 001402 

003714 004737 



HIPUT: > 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



003720 
003724 
003726 
003734 



003736 
003744 
003752 

003754 
003760 



005761 
001404 

103444 



0000000 OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG 

OOOOOOG 



026127 OOOOOOG 000010 

101003 

004737 005674 ' 

000766 



003762 005361 

003766 016102 

003772 

004006 1 1 0022 

004010 

004016 020261 

004022 103402 

004024 016102 

004030 010261 

004034 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



004042 004777 OOOOOOG 



004046 012602 
004050 000207 



MOV R2, -<SP) 

If this is a detached job* discard its output 

BIT #*DETCH, LSW(Rl) ;l5 this a detached job? 

BNE 9* j Br if yes — discard its output 

BIT #<*DISCN+*CTRLC+*DETCH>, LSW<R1) ; IS LINE DISCONNECTED? 

BEQ 1* J BR IF NOT 

CALL STOP } STOP JOB 

See if display windoujing is turned on for this line 



1$: 



TST 
BEG 
OCALL 
BCS 



LWIND0<R1.) 
4* 

WINCHR 
9* 



; Is job doing display uiindowing? 

; Br if not 

iPass character to window manager 

> Br if lue should not display this char 



4*: 



See if there is room in the output buffer for this character 

*«■ DISABLE «■» 

ENOUGH SPACE IN OUTPUT BUFFER? 

BR IF PLENTY OF SPACE 

SUSPEND PROGRAM TILL SPACE IS AVAILABLE 

NOW GO TRY AGAIN 



DI3ABL 




CMP 


L0TSPC(R1 )i #8. 


BHI 


2* 


CALL 


PCSPND 


BR 


4* 



Insert character into output buffer 



2*: 



3*: 



DEC 


LOTSPC(Rl) ; 


MOV 


L0TNXT<R1)>R2 


TTMAP 




MOVB 


RO, <R2)+ ; 


UNMAP 




CMP 


R2, L0TEND<R1) ; 


BLO 


3* ; 


MOV 


L0TBUF<R1)>R2 ; 


MOV 


R2, LOTNXT(Rl) i 


EWABL 





SAY LESS SPACE AVAILABLE IN BUFFER 
GET POINTER TO FREE CELL IN BUFFER 
MAP TO TT BUFFER AREA 
MOVE CHAR INTO TT BUFFER 

HAVE WE HIT THE END OF THE TT BUFFER? 

BR IF NOT 

WRAPAROUND TO FRONT OF BUFFER 

SAVE NEW BUFFER POINTER 

** ENABLE ** 



Try to start transmission to line 

CALL ©TRNSTR i TRY TO START TRANSMISSION TO LINE 

Finished 

9$: MOV <SP)+>R2 

RETURN 



4 
I 

4 

i 
i 
i 
i 

i 



TSTTY 
ESCHK 
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— Check for echo suppression restart 



1 

2 
3 
4 
5 
& 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004052 



004052 000171 0000000 



004056 010046 

004060 020027 

004064 103405 

004066 020027 

004072 101002 

004074 162716 

004100 122661 

004104 001445 

004106 000453 



000141 

000172 

000040 
0000000 



004110 120061 0000000 

004114 001441 

004116 120027 000136 

004122 001441 

004124 126127 OOOOOOG 000136 

004132 001432 

004134 000440 



004136 120027 

004142 001431 

004144 120027 

004150 001423 

004152 000431 



OOOOOOG 
OOOOOOG 



004154 120027 OOOOOOG 

004160 001417 

004162 120027 OOOOOOG 

004166 00141/ 

004170 



. SBTTL ESCHK 



ChecN for echo suppression restart 



ESCHK is called from PUTCHR to determine if echo suppression 
that is currently in effect should be terminated. 

Inputs: 
RO = Current character being output. 
Rl = Virtual line number. 

Outputs-: 
C-flag set ==> Discard the character. 
RO = Character to output to terminal. 

ESCHK: 

Jump to appropriate restart routine based on echo suppression class 

JMP eLESRTN(Rl) i Jump to echo suppression restart routine 

Restart after a normal character 

ESUAC: MOV RO, -(SP) ; PUSH CHARACTER BEING SENT 

IS IT A LOWER CASE LETTER? 
BR IF NOT 



1$: 



MOV 


RO, -(SP) ; 


CMP 


RO, #141 ; 


BLD 


1* i 


CMP 


RO, #172 


BHl 


1* 


SUB 


#40, (SP) i 


CMPB 


(SP)+, LESCHR(Rl); 


BEQ 


ESRS2 i 


BR 


ESRSl i 



CONVERT LOWER-CASE TO UPPER-CASE 

IS CHAR BEING SENT SAME AS ECHO-SUPPRESSION CHAR? 

IF YES THEN RESTART WITH NEXT CHAR 

IF NOT RESTART IMMEDIATELY 



Restart output after control type activation chars <ctrl-x etc. ) 

ESCTL: CMPB RO, LESCHR<R1 ) i CONTROL CHAR ECHOED BACK? 

IF YES RESTART WITH NEXT CHAR 

ECHO •'^-CHAR? 

IF YES WAIT FOR NEXT CHAR 

WAS PREVIOUS CHAR •'^? 

IF YES, RESTART WITH NEXT CHAR 

RESTART WITH THIS CHAR 



CMPB 


RO, LESCHR<R1) 


BEQ 


ESRS2 


CMPB 


RO, S'-^ 


BEQ 


ESRTN 


CMPB 


LSNDCH(R1),#' 


BEQ 


ESRS2 


BR 


ESRSl 



Restart output after cr or If. 



ESCRLF: CMPB 
BEQ 
CMPB 
BEQ 

BR 



RO, #CR 

ESRTN 
RO, #LF 
ESRS2 
ESRSl 



; Restart aft 


er form feed 


ESFF: CMPB 


RO, #FF 


BEQ 


ESRS2 


CMPB 


RO, #LF 


BEQ 


ESRTN 


BR 


ESRSl 



IS THIS CHAR CR? 

YES — KEEP SKIPPING 

IS IT LF? 

YES — RESTART WITH NEXT CHAR. 

NOT CR OF LF. RESTART IMMEDIATELY 



ECHO FORM FEED CHAR? 

IF YES, RESTART WITH NEXT CHAR 

IGNORE A STRING OF LP'S 



TSTTY 
fcSCHK 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 

80 
81 
82 
83 



004172 
004176 
004200 



004202 
004206 
004210 
004214 
004216 



120027 000044 

001410 

000416 



120027 0000000 

001404 

120027 000040 

001404 



; Res 


tart aft 


er escape 


i 

ESESC: 


CMPB 


RO, #'* 




BEQ 


ESRS2 




BR 


ESRSl 



; Restart after tab. 
ESHT: 



004226 
004232 
004234 



004236 
004244 
004246 



000407 



042761 
110061 
000261 
000404 



042761 
000241 
000207 



CMPB 


RO, #TAB 


BEQ 


ESRS2 


CMPB 


RO, #' 


BEQ 


ESRTN 


BR 


ESRSl 



.: OK TO ECHO * TOO. 

i RESTART IMMEDIATELY. 



ECHO TAB CHAR? 

IF YES, RESTART WITH NEXT CHAR 

IGNORE A STRING OF BLANKS 



Set output restart with next character. 



OOOOOOG OOOOOOG ESRS^ 



0000000 



ESRTN: 



BIC #*NOOUT, LSW3<Rl)i RESTART OUTPUT WITH NEXT CHAR 

MOVE RO, LSNDCH(R1 ) J REMEMBER LAST CHAR SENT 
SEC i SAY TO DISCARD THIS CHARACTER 

BR ESXIT 



i Restart output immed iately with this character. 

OOOOOOG OOOOOOG ESRSl: BIC #*NODUT, LSW3<R1 )i SAY ECHO SUPPRESSION IS TURNED OFF 

CLC 'Say to restart immediately 

ESXIT: RETURN 



TSTTY ~ 
LI FUN 

1 
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3 
4 
5 
6 
7 

8 004250 

9 004252 

10 004254 

11 004256 
12 

13 
14 

15 004260 

16 004264 

17 004270 
IS 

19 
20 
21 



004272 
004274 
004276 
004300 
004302 



010246 
010346 
010446 
010546 



016102 
005061 
004712 



012605 
012604 
012603 
012602 
000207 



23 
24 
25 
26 
27 
28 
29 

30 004304 162700 

31 004310 100406 

32 004312 020027 

33 004316 103003 

34 004320 006300 

35 004322 004770 
36 

37 
38 
39 004326 000207 



0000000 
OOOOOOG 



000101 



00003S 



004330 ' 



. SBTTL LIFUN — Process lead-in function sequences 

LIFUN is called from PUTCHf? to process TSX lead-in character sequences 

Inputs: 
RO = Current character 
Rl = Virtual line number 
LIFUN: MOV R2, -<SP) 
NOV R3, -<SP) 
MOV R4,-<SP) 
MOV R5, -<SP) 

i Enter correct processing routine 



MOV 
CLR 
CALL 

Finished 

MOV 
MOV 
MOV 
MOV 
RETURN 



LTSCMD<R1 ) . R2 s Get address of correct processing routine 
LTSCMD<R1) ; Say no processing routine pending now 
(R2) j Enter processing routine 



<SP)+,R5 
<SP)+, R4 
<SP)+, R3 
<SP)+, R2 



Get letter after leadin character and identify command. 



CONVERT LETTER TO TABLE INDEX 

BR IF NOT LEGAL COMMAND 

SEE IF IN LEGAL RANGE 

BR IF TOO BIG 

MAKE INTO WORD TABLE INDEX 

ENTER PROCESSING ROUTINE 



9*: 



1: SUB 


#'A, RO 


BMI 


9* 


CMP 


RO, #MAXCC 


BHIS 


9* 


ASL 


RO 


CALL 


@CCVECT(RO) 


inished 




RETURN 





TSTTY - 


- TSX Terminal I 


LI FUN - 
1 


— Process lead- 


2 
3 
4 


004330 


004414' 


5 


004332 


004432 ' 


6 


004334 


004442 •' 


7 


004336 


004452' 


8 


004340 


004702 ' 


9 


004342 


004712' 


10 


004344 


004722' 


11 


004346 


004724 ' 


12 


004350 


004734 ' 


13 


004352 


004764 ' 


14 


004354 


004774' 


15 


004356 


005004' 


16 


004360 


005022' 


17 


004362 


005032' 


IS 


004364 


005052' 


19 


004366 


005072' 


20 


004370 


005202' 


21 


004372 


005356' 


22 


004374 


005414' 


23 


004376 


005424' 


24 


004400 


005434 ' 


25 


004402 


005444' 


26 


004404 


005634 ' 


27 


004406 


005644' 


28 


004410 


005654' 


29 


004412 


005664' 


30 




000032 
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Define TSX command control characters 



CCVECT: . WORD 


CMDA 


. WORD 


CMDB 


. WORD 


CMDC 


. WORD 


CMDD 


. WORD 


CMDE 


. WORD 


CMDF 


. WORD 


CMDG 


. WORD 


CMDH 


. WORD 


CMDI 


. WORD 


CMDJ 


. WORD 


CMDK 


. WORD 


CMDL 


. WORD 


CliDM 


. WORD 


CMDN 


. WORD 


CMDO 


. WORD 


CMDP 


. WORD 


CMDQ 


. WORD 


CMDR 


. WORD 


CMOS 


. WORD 


CMDT 


. WORD 


CMDU 


. WORD 


CMDV 


. WORD 


CMDW 


. WORD 


CMDX 


. WORD 


CMDY 


. WORD 


CMDZ 


MAXCC 


<. -CCVECT>/2 



SET RUBOUT FILLER CHARACTER 

ENABLE VT50 EBC -LETTER ACTIVATION 

DISABLE VT50 ESC-LETTER ACTIVATION 

DEFINE ACTIVATION CHARACTER 

TURN ON ECHO 

TURN OFF ECHO 

NOP 

DISABLE VIRTUAL LINES 

ENABLE LOWER CASE INPUT 

DISABLE LOWER CASE INPUT 

SET DEFERRED CHAR ECHO MODE 

SET IMMEDIATE CHAR ECHO MODE 

SET TRANSPARENCY MODE ON 

SUSPEND COMMAND FILE INPUT 

RESTART COMMAND FILE INPUT 

RESET USER ACTIVATION CHAR 

SET ACTIVATION ON FIELD WIDTH 

TURN ON HIGH-EFFICIENCY TTY MODE 

TURN ON SINGLE CHARACTER ACTIVATION MODE 

TURN OFF SINGLE CHARACTER ACTIVATION MODE 

ENABLE NON-WAIT TT INPUT 

SET FIELD WIDTH LIMIT 

TURN TAPE MODE ON 

TURN TAPE MODE OFF 

DISABLE AUTO LF ECHO 

ENABLE AUTO LF ECHO 

# COMMANDS 



f 

I 
I 

c 
i 
i 
i 

< 

i 
< 
I 

€ 

4 

i 

i 
i 
i 
i 
i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 



0044J 



Command - A 

The nest char will be the rubout filler character. 



004414 012761 004424' 0000000 CMDA: 



00020: 



MOV #SETRBF, LTSCMD(Rl)iSET NEXT PROCESSING ROUTINE 
RETURN 



004424 110061 OOOOOOQ 
004430 000207 



THIS CHAR IS THE RUBOUT FILLER CHARACTER. 

SETRBF: MOVB RO, LRBFIL <R1 ) > SET NEW RUBOUT FILLER CHARACTER 
RETURN 



Command - B 

Enable activation on vt50 escape-letter sequence. 



004432 052761 0000000 OOOOOOG CMDB: 
004440 000207 



BIS #*VTESC>LSW5<Rl)i ENABLE THAT ACTIVATION SEQUENCE 
RETURN 



Command - C 

Disable activation on vt50 escape-letter sequence. 



004442 042761 OOOOOOG OOOOOOG CMDC: 
004450 000207 



BIC #*VTESC, LSW5<R1); DISABLE ACTIVATION CLASS 
RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2S 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Command - D 

Define additional activation character (which follows). 



004452 
004460 



004462 
004464 
004466 
004470 
004476 
004500 
004504 
004510 
004514 
004516 
004522 
004524 
004530 
004534 
004536 



004544 
004546 
004550 
004554 
004560 
004562 
004564 
004570 
004572 
004574 



004576 
004602 
004604 
004610 
004612 
004616 
004622 
004626 



004632 
004636 
004640 



012761 
000207 



010346 
010446 
010546 
032761 
001075 
004737 
016102 
020227 
103066 
066102 
110012 
005261 
120027 
00 1 003 
052761 



005003 
010005 
016102 
020361 
103044 
010204 
004737 
005203 
120005 
00 1 367 



032700 
001013 
052700 
010402 
004737 
005261 
00 5061 
005061 



120027 
00 1 346 
020361 



00446c 



0000000 CMDD: 



MOV #GTSPAC,LTSCMD(Rl)i SET PROCESSING ROUTINE 
RETURN 



This character is a new activation character. 



GTSPAC: 



0000000 OOOOOOG 

005120' 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



MOV 

MOV 

MOV 

BIT 

BNE 

CALL 

MOV 

CMP 

BHIS 

ADD 

MOVB 

INC 

CMPB 

BNE 

BIS 



R3, -<SP) 

R4, -(SP) 

R5, -<SP) 

#*DETCH, LSW<R1) 

9* 

DELUAC 

LNSPAC(R1),R2 

R2, #MXSPAC 

9* 

LSPACT<R1>,R2 

RO, <R2) 

LNSPAC<R1) 

RO, #CTRLC 

1* 

#*UCTLC, LSW4(R1) 



Is this a detached job? 

Br if yes — Ignore function 

DEL CHAR IF ALREADY IN TABLE 

GET # OF CHARS DEFINED SO FAR 

DEFINED ALL ALLOWED? 

CAN'T HAVE ANY MORE 

POINT TO FREE SPOT IN TABLE 

STORE AWAY CHARACTER 

SAY 1 MORE CHAR IN TABLE 

IS CTRL-C A SPECIAL ACTIV CHAR? 

BRANCH IF NOT CTRL~C 

REMEMBER SPECIAL CTRL-C 



OOOOOOG 
OOOOOOG 



01631; 



1*: 



?*: 



CLR 


R3 


MOV 


RO, R5 


MOV 


LINPNT<R1),R2 


CMP 


R3, LINCNT<R1) 


BHIS 


9* 


MOV 


R2, R4 


CALL 


FETCHR 


INC 


R3 


CMPB 


RO, R5 


BNE 


2* 



OOOOOOG 

OOOOOOG 

016454' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4«: 



If user typed ahead any of the characters that are being declared 
to be an activation char, mark them as activation chars. 

Count chars in R3 

Carry new activation char in R5 

Get pointer to next char in TT buffer 

Any more chars to check? 

Br if not 

Save current character pointer 

Fetch a char from TT input buffer 

Count characters that we check 

Is this the activation char? 

Loop if not 

We found the activation char in the type-ahead characters. 
Mark it as an activation character. 

Is char already marked for activation? 

Br if yes 

Set activation-character flag 

Get back pointer to character 

Insert character in buffer 

Say another pending activation char 

Clear field width activation 

Clear field width limit 

If the activation character is a carriage-return, check the following 
character and delete it if it is a line-feed. 



BIT 


#ACFLAG, RO 


BNE 


3* 


BIS 


#ACFLAG, RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV(Rl) 


CLR 


LAFSIZ<R1) 


CLR 


LFWLIM<R1) 



OOOOOOG 
OOOOOOG 



3*: 



CMPB RO, #CR 

BNE 2* 

CMP R3, LINCNT<R1) 



i Is activation character a carriage-return? 

; Br if not 

; Any chars left in buffer? 



TSTTY — 


- TSX Terminal 1/Q routi 


LI FUN - 


— Proce 


5S leacl- 


•in funct 


58 


004644 


103012 




59 


004646 


010204 




60 


004650 


004737 


016312' 


61 


004654 


120027 


OOOOOOG 


62 


004660 


001335 




63 


004662 


010402 




64 


004664 


004737 


016604' 


65 


004670 


000731 




66 








67 








6S 








69 


004672 


012605 




70 


004674 


012604 




71 


004676 


012603 




72 


004700 


000207 
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9$: 



BHIS 


9* 


MOV 


R2, R4 


CALL 


FETCHR 


CMPB 


RO, #LF 


BNE 


2* 


MOV 


R4, R2 


CALL 


DELCHR 


BR 


2* 


F i n i B h e d 




MOV 


(SP)+, R5 


MOV 


(SP>+, R4 


MOV 


(SP)+,R3 


RETURN 





i Br if not 

; Save position of possible line feed 

; Fetch character that follows CR 

i Is that character a line feed? 

j Br if not 

; Get back pointer to line feed 

iDelete the line feed 



( 

i 
I 

4 

i 
i 

€ 

I 

( 

i 

i 

i 

« 

i 

i 
i 

4 
4 

I 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004702 
004710 



004712 
004720 



004724 
004732 



004734 
004742 
004746 

004752 
004756 
004762 



004764 
004772 



004774 
005002 



005004 
005012 



Commanci - E 

Turn on character echoing. 



052761 0000000 0000000 CMDE: BIS 
000207 RETURN 



#*ECHO, LSW2<R1) ; ENABLE ECHOING 



Command -• F 

Turn off character echoing. 



042761 OOOOOOG OOOOOOG CMDF: BIC 
000207 RETURN 



#«ECHO, LSW2<R1) ; DISABLE ECHOING 



Commantl - Q 



000207 



CNDG: 



RETURN 



Command - H 

Disable virtual lines. 



052761 OOOOOOG OOOOOOG CMDH: 
000207 



BIS #*N0VLN,LSW2(R1); DISABLE VIRTUAL LINES 
RETURN 



Command - I 

Enable lower case input. 



052761 
106537 
052716 
011661 
106637 
000207 



OOOOOOG OOOOOOG CMDI: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



BIS 

MFPD 

BIS 

iiOV 

MTPD 

RETURN 



#*LC, LSW2(RJ ) 
@#JSWLOC 
#LCBIT, <SP) 
<SP),LJSW<R1) 
@#JSWLOC 



i DO "SET TTY LC" 

; GET USER'S JSW VALUE 

i SET LOWER-CASE ENABLE FLAG 

; SAVE JSW IN INTERNAL TABLE 

; STORE BACK INTO USER 'S AREA 



Command - J 

Disable lower case input. 



042761 OOOOOOG OOOOOOG CMDJ: BIC 
000207 RETURN 



#*LC,LSW2(R1 ) 



} DO "SET TTY NOLO" 



Command - K 

Set deferred character echo mode. 



052761 OOOOOOG OOOOOOG CMDK: 
000207 



BIS #*DEFER,LSW2<Rl>i SET DEFERRED ECHO FLAG 
RETURN 



Commcjnd - L 

Set immediate mode char echo. 



042761 
042761 



OOOOOOG OOOOOOG CMDL: BIC 
OOOOOOC OOOOOOG BIC 



#*DEFERji LSW2<R1 ) i Echo immediately from now on 
#<*DODFR!*GCECO>, LSW3(R1 ) ; Say we are not now deferring 



TSTTY — 
LIFUN - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



TSX Terminal I/O routi HACRO V05. 04 Friday lS~Dec"S7 14:01 Page 2r7~l 
■ ProcesG lead-in function Bequence^ 



005020 000207 



RETURN 



Commend - H 

Set output transparency mode 



005022 052761 OOOOOOG 0000000 CMDM: 
005030 000207 



005032 
005036 
005040 
005044 
005050 



013702 
001404 
010237 
004737 
000207 



005052 
005056 
005060 
005064 
005070 



013700 
00 1 404 
004737 
005037 
000207 



OOOOOOG 

0000000 
010016' 



0000000 

010042' 
OOOOOOG 



BIS #*TRNSP, LSW3(R1>;TURN ON TRANSPARENCY MODE 
RETURN 



Command - N 

Suspend input from a control file 



CMDN: 



1*: 



MOV 


CFPNT, R2 


BEQ 


1* 


MOV 


R2, CFSPND 


CALL 


CFSTOP 


RETURN 





IS A COMMAND FILE ACTIVE NOW? 

BR IF NOT 

SAVE POINTER 

Suspend command file input 



Command - 

Restart input from suspended command file 



CMDO: 



If: 



MOV 


CFSPND, RO 


BEQ 


1* 


CALL 


CFSTRT 


CLR 


CFSPND 


RETURN 





i IS COMMAND FILE SUSPENDED? 

;BR IF NOT 

/Restart command file input 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



005072 
005100 



005102 
005110 
005112 
005116 



005120 
005122 
005124 
005130 
005132 
005136 
005140 
005142 



005146 
005152 
005154 
005160 
005164 
005166 
005174 
005176 
005200 



032761 
001002 
004737 
000207 



010246 
010346 
016102 
001421 
016103 
120023 
001402 
077203 



005144 000413 



112363 
077203 
005361 
120027 
001003 
042761 
012603 
012602 
000207 



Command - P 

Reset user specified activation char. 



012761 005102' OOOOOOG CMDP: 
000207 



MOV #RSSPAC,LTSCMD<R1); SET PROCESSING ROUTINE 

RETURN 



THIS CHAR IS THE CHAR TO RESET. 



OOOOOOG OOOOOOG RSSPAC: 



005120' 



9$: 



BIT 
BNE 
CALL 
RETURN 



#*DETCH, LSW<R1) 

9* 

DELUAC 



j Is this a detached job? 

i Br if yes — Ignore function 

iCALL SUBROUTINE TO DEL CHAR FROM TABLE 



OOOOOOG 
OOOOOOG 



177776 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



SUBROUTINE TO DELETE A USER-DEFINED ACTIVATION FROM THE TABLE 

OF ACTIVATION CHARACTERS. 

WHEN CALLED THE CHARACTER TO BE DELETED MUST BE IN RO. 



;GET # OF USER ACTIVATION CHARS 

; BR IF NONE TO RESET 

i POINT TO START OF TABLE 

; SEARCH FOR CHAR 

;BR WHEN FOUND 

i LOOP IF MORE TO CHECK 



MOVE BACK REST OF CHARS 

SAY ONE LESS CHAR TO ACTIVATE ON 

DE-ACTIVATING CTRL-C? 

BR IF NOT 

REMEMBER NO MORE CTRL-C 



DEL 


-UAC: MOV 


R2, -<SP) 




MOV 


R3, - ( SP ) 




MOV 


LNSPAC(Rl), R2 




BEQ 


3« 




MOV 


LSPACT<R1),R3 


2*: 


CMPB 


R0> (R3) + 




BEG 


1* 




SOB 


R2, 2« 


> 


COULDN'T FIND CHAR 




BR 


3* 


i 


FOUND CHAR 




1^: 


MOVB 


<R3)+,-2(R3) 




SOB 


R2, 1* 




DEC 


LNSPAC<R1) 




CMPB 


RO, #CTRLC 




BNE 


3* 




BIC 


#*UCTLC, LSW4(R1 


3^: 


MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




RETURN 
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005202 
005210 



3 
4 
5 
6 
7 
8 
9 

10 005212 

11 005214 

12 005216 

13 005220 

14 005226 

15 005230 

16 005232 

17 005236 
IS 005240 

19 005244 

20 005246 



23 
24 
25 
26 

27 005254 

28 005256 

29 005260 

30 005264 
31 

32 
33 
34 

35 005266 

36 005272 

37 005274 

38 005300 

39 005302 

40 005306 

41 005310 

42 005312 

43 005316 

44 005320 

45 005324 

46 005330 

47 005334 

48 005340 
49 

50 

51 

52 

53 005342 

54 

55 

56 

57 005346 



012761 
000207 



010246 
010346 
010446 
032761 
001047 
010003 
004737 
103043 
004737 
103436 
005761 
001035 



005703 
001431 
020361 
1 1 026 



016102 
010204 
004737 
103422 
032700 
001017 
077310 
052700 
010402 
004737 
005261 
005061 
005061 
000402 



Command - Q 

Set field width as an activation condition 



005212' 0000000 CMDQ: 



MOV 
RETURN 



#SFWAC, LTSCMD<Rl)i SET PROCESSING ROUTINE 



0000000 OOOOOOG 

007760 ' 
017254' 
0000000 



0000000 



OOOOOOG 
016312' 
OOOOOOG 

OOOOOOG 

016454' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



010061 OOOOOOG 



012604 



i 

i Interpret 


th 


is char as value 


SFWAC; MOV 




R2, -<SP) 


MOV 




R3, -<SP) 


MOV 




R4, -(SP) 


BIT 




#*DETCH, LSW(Rl) 


BNE 




9* 


MOV 




RO, R3 


CALL 




CFTEST 


BCC 




9* 


CALL 




SLCHK 


BCS 




1* 


TST 




LACTIV<R1) 


BNE 




9* 



Is this a detached job? 

Br if yes — Ignore function 

CARRY FIELD WIDTH IN R3 

INPUT COMING FROM COMMAND FILE? 

BR IF YES 

IS SINGLE LINE EDITOR IN CONTROL? 

BR IF YES — SET VALUE AND LET SL HANDLE IT 

IS ACTIVATION CHAR PENDING NOW? 

IF YES THEN IGNORE FIELD WIDTH 



No activation chars are pending and input is not 

coming from a command file. 

See if he has typed ahead enough to cause activation 



TST R3 

BEQ 1* 

CMP R3, LINCNT<R1) 

BHI 1* 



IS HE RESETTING FIELD WIDTH ACTIVATION? 

BR IF YES 

REACHED ACTIVATION ALREADY? 

BR IF NOT 



DsiST has typed ahead enough to fill this field. 
Set activation flag in last char in field. 



3$: 



MOV 


LINPNT<R1)/R2 


MOV 


R2, R4 


CALL 


FETCHR 


BCS 


9* 


BIT 


#ACFLAG, RO 


BNE 


9* 


SOB 


R3, 3* 


BIS 


#ACFLAG, RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV<R1) 


CLR 


LAFSIZ<R1) 


CLR 


LFWLIM<R1) 


BR 


9* 



POINT TO 1ST CHAR PENDING 

SAVE POINTER TO NEXT CHAR 

FETCH THE NEXT INPUT CHARACTER 

STRANGE — NO MORE CHARS TO GET 

IS THIS CHAR ALREADY FLAGGED FOR ACTIVATION? 

BR IF YES 

LOOP TILL WE GET LAST CHAR IN FIELD 

SET ACTIVATION-CHARACTER FLAG FOR CHAR 

GET BACK POINTER TO CHAR POS IN BUFFER 

REINSERT CHARACTER INTO BUFFER 

SAY ONE MORE PENDING ACTIVATION CHAR 

SAY FIELD WIDTH ACTIVATION NOT IN EFFECT 

SAY NO FIELD WIDTH LIMIT 



User has not typed ahead entire field. 
Remember field size as activation condition. 



■>: MOV 

Finished 
9*: MOV 



RO, LAFSIZ(R1 ) 



( SP ) +, R4 



; REMEMBER FIELD SIZE 
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5S 005350 012603 MOV (SP)+, R3 

59 005352 01260;? MOV (SP)+, Rr:^ 

60 005354 000207 RETURN 



i 
I 



TSTTY — 
LI FUN - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
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Conrmand ~ R 

Turn on h iqh-ef f ic iencq ttij mode 



005356 032761 

005364 001002 

005366 004737 

005372 000207 



OOOOOOG OOOOOOG CMDR: 
005374' 



9$: 



BIT 


#*DETCH. LSW(Rl) 


BNE 


9* 


CALL 


HIDN 


RETURN 





> Is this a detached job? 

; Br if yes — Ignore function 

; TURN ON HIGH-EFFICIENCY MODE 



HION IS CALLED TO ENABLE HIGH-EFFICIENCY TTY MODE. 
IT IS CALLED FROM TSEMT AS WELL AS FROM TSEXEC. 
WHEN CALLED, THE LINE INDEX # MUST BE IN Rl. 



005374 032761 

005402 001003 

005404 052761 

005412 000207 



OOOOOOG OOOOOOG HION: 

OOOOOOG OOOOOOG 

1$: 



BIT #*DETCH, LSW(Rl) i IS THIS A DETACHED JOB? 

BNE 1* ;BR IF YES (CAN'T USE THIS MODE) 

BIS #*HITTY,LSW4<R1); ENABLE HIGH-EFFICIENCY MODE 

RETURN 



Command - S 

Turn on single character activation mode 



005414 052761 OOOOOOG OOOOOOG CMOS: 
005422 000207 



BIS #*CHACT. LSW5(R1); TURN ON SINGLE CHARACTER ACTIVATION 

RETURN 



Command - T 

Turn off single character activation mode 



005424 042761 OOOOOOG OOOOOOG CMDT: 
005432 000207 



BIC #*CHACT, LSW5<Rl>i TURN OFF SINGLE CHARACTER ACTIVATION 
RETURN 



Command - U 

Enable non-ujait TT input <.TTINR) 



005434 052761 OOOOOOG OOOOOOG CMDU: 
005442 000207 



BIS #*N0WTT,LSW5<Rl)i ENABLE NON-WAIT TT INPUT 
RETURN 
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005444 
005452 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 005454 

11 005456 

12 005460 

13 005462 

14 005470 

15 005472 

16 005476 

17 005500 
IS 005502 

19 005506 

20 005510 

21 005514 
22 

23 
24 
25 

26 005516 

27 005520 

28 005524 

29 005530 

30 005532 

31 005534 

32 005540 

33 005544 

34 005546 

35 005552 

36 005554 

37 005560 

38 005562 

39 005570 

40 005572 

41 005574 

42 005576 
43 

44 
45 

46 005600 

47 005602 

48 005606 
49 

50 005610 

51 005614 
52 

53 

54 

55 005620 

56 

57 



012761 
000207 



010446 
010546 
032761 
001055 
005061 
010004 
001451 
004737 
103046 
004737 
103441 



005003 
016102 
020361 
103033 
010205 
004737 
120027 
00 1 427 
032700 
00 1 024 
120027 
001004 
032761 
001015 
005203 
020304 
101752 



010502 
004737 
103375 

012700 
004737 



Command - V 

Set fie? Id width limit. 



005454' OOOOOOG CMDV: 



MOV #SFWL, LTSCMD(R1);NEXT CHAR WILL BE FIELD WIDTH SIZE 

RETURN 



OOOOOOG OOOOOOG 
OOOOOOG 

007760 ' 
017254' 



This character specifies the field size 



SFWL: MOV R3, -(SP) 

MOV R4, -<SP) 

MOV R5, -(SP) 

BIT #*DETCH.. LSW(Rl) 

BME 9* 

CLR LFWLIM<R1) 

MOV RO, R4 

BEQ 9* 

1«: CALL CFTEST 

BCC 9* 

CALL SLCHK 

BCS 6* 



Is th is a 

Br if yes 

Initially 

IS 

Br 



detached job? 

— Ignore function 

clear field width 

FIELD WIDTH ZERO? 



SPECIFIED 

if yes 

IS INPUT COMING FROM A COMMAND FILE? 
BR IF YES 

IS SINGLE LINE EDITOR RUNNING? 
BR IF YES 



See if user typed ahead. 

Check size of field and discard 



any chars beyond end of specified size. 



OOOOOOG 
OOOOOOG 



016312' 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



14*: CLR R3 

MOV LINPNT<R1)>R2 

5*: CMP R3, LINCNT<R1) 

BHIS 6* 

MOV R2, R5 

CALL FETCHR 

CMPB RO, #CR 

BEQ 9* 

BIT #ACFLAG, RO 

BNE 9* 

CMPB R0> #ESCFLG 

BNE 2* 

B I T #* VTESC , LSW5 < R 1 ) 

BNE 9* 

INC R3 

CMP R3, R4 

BLOS 5* 



2*: 



COUNT TOTAL CHARACTERS IN R3 

GET POINTER TO NEXT CHAR IN BUFFER 

HAVE WE CHECKED ALL CHARS IN TT BUFFER? 

BR IF YES — NO OVERFLOW HAS OCCURRED YET 

SAVE POINTER TO NEXT CHAR 

GET NEXT CHAR FROM TT INPUT BUFFER 

IS THIS CHAR CARRIAGE-RETURN? 

BR IF YES — THIS ENDS THE FIELD 

IS THIS CHAR AN ACTIVATION CHAR? 

FIELD TERMINATED WITHOUT OVRFLOW 
PART OF VTIOO ESCAPE SEQ? 



BR 
IS 
BR 



IF YES — 
THIS CHAR 
IF NOT 



ARE WE ACTIVATING ON VTIOO ESC SEQUENCES? 

BR IF YES — FIELD WIDTH OK 

COUNT TOTAL # CHARS IN FIELD 

DOES THIS CHAR OVERFLOW THE FIELD? 

BR IF NOT 



Field overflow. Discard all chars typed beyond end of field. 



016604 



OOOOOOG 
003462 ' 



MOV R5, R2 
10*: CALL DELCHR 

BCC 10* 
i Ring bell to signal user that field overflowed. 

MOV #BELL, RO ; GET BELL CHARACTER 

CALL QUECHR > END TO TERMINAL 



POINT TO CHAR THAT OVERFLOWED FIELD 
DELETE ALL CHARS THAT ARE BEYOND FIELD END 
LOOP IF MORE CHARS TO DELETE 



010461 OOOOOOG 



Field did not overflow 
6*: MOV R4,LFWLIM<R1) 
i F i r> i R h e d 



J SET FIELD WIDTH LIMIT FOR THIS FIELD 
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5B 

59 005624 

60 005626 

61 005630 

62 005632 



01260r> 
012604 
012603 
000207 



9*; 



MOV 


<SP)+. R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





I 
< 

I 
f 
< 
I 

I 

i 
c 

€ 
I 

i 
i 
i 
i 
4 
f 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



Command - W 

Turn "paper-tape" mode? on. 



005634 052761 OOOOOOG OOOOOOG CMDW: 
005642 000207 



BIS #«TAPE, LSW2(R1) i TURN TAPE MODE ON 
RETURN 



Command - X 

Turn "paper-tape" mode off. 



005644 042761 OOOOOOG OOOOOOG CMDX: 
005652 000207 



B.TC #*TAPE, LSW2<R1) > TURN TAPE MODE OFF 

RETURN 



Commend - Y 

Disable echoing of line-feed folloiuing carriage-return 



005654 052761 OOOOOOG OOOOOOG CMDY: 
005662 000207 



BIS #«NOLF, LSW6<R1) ; DISABLE AUTO LINE-FEED ECHO 
RETURN 



Commcmd - Z 

Enable echoing of line-feed following carriage-return 



005664 042761 OOOOOOG OOOOOOG CMDZ: 

005672 000207 



BIC #*NOLF. LSW6<R1) i REENABLE AUTO LINE-FEED ECHO 

RETURN 



TSTTY — 


- TSX Terminal 1 


/O routi 


LJI-UN - 

1 
2 
3 


-~ Proce 


5s lead- 


■in furict 








4 








5 








6 








7 








8 








9 








10 








11 


005674 


010046 




12 


005676 


004737 


017466' 


13 


005702 


012700 


000000(3 


14 


005706 


004737 


0000000 


15 


005712 


004737 


0000000 


16 


005716 


012600 




17 


005720 


000207 




la 








19 








20 








21 








22 








23 








24 








25 








26 








27 








28 


005722 






29 


005730 


005761 


ooooooe 


30 


005734 


00 1 402 




31 


005736 


004737 


003462 ' 


32 


005742 


000207 
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i 
f 



PCSPND is called to suspend execution of the current job because 

the terminal output buffer is full. 

Inputs: 
Rl ~ Job index number. 

Outputs: 
All registers are preserved. 



PCSPND: MOV 
CALL 
MOV 
CALL 
CALL 
MOV 
RETURN 



RO, -<SP) 
SIGWAT 
#S*OTWT, RO 
QHDSPN 
CHKABT 
(SP)+, RO 



i SIGNAL JOB WAIT 

; CHANGE JOB STATE TO WAITING-FOR -OUTPUT-SPACE 

i CHANGE STATE AND SUSPEND THE JOB 

iSEE IF WE WERE ABORTED WHILE ASLEEP 



TRYCHR is similar to PUTCHR except if the user's 

output buffer is full TRYCHR simply returns 

and does not halt execution. 

TRYCHR also does not give special treatment to 

such chars as form feed> backspace/ etc. 

when called rO must contain the character to be 

sent and rl must contain the virtual line index #. 

all registers are preserved. 



; *«• DISABLE «* 

i IS THERE ROOM FOR THE CHAR? 

; BR IF NOT 

;PUT CHARACTER INTO BUFFER 



FRYCHR: 


DISABL 






TST 


L0TSPC<R1) 




BEO 


9* 




CALL 


QUECHR 


9*: 


RETURN 
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LIFUN -— ■ ProcefiS lead-in function &cquence<:> 



1 

2 
3 
4 
5 

6 005744 012700 OOOOOOG 

7 005750 004737 OOOOOOG 

8 005754 000207 



OTREGO IS CALLED TO RESTART A USER WHO IS SUSPENDED 
WArriMG FOR SPACE IN THF OUTPUT BUFFER. 
WHEN CALLED THE USER NUMBER MUST BE IN Rl. 



OTREGO: MOV ttS^OTFN. RO 
CALL ENQTL 
RETURN 



; PUT USER IN OUTPUT-NEEDED QUEUE 
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3 

4 

5 

6 

7 

8 

9 
10 005756 
U 005760 

12 005762 

13 005766 

14 005774 

15 006002 

16 006004 
17 

18 
19 

20 006010 

21 006014 

22 006016 

24 
25 
26 

27 006022 

28 006030 

29 006032 

30 006040 
31 

32 
33 

34 006044 

35 006052 

36 006054 

37 006062 
38 

39 
40 

41 006066 

42 006074 

43 006076 

44 006104 

45 006106 

46 006114 

47 006116 

48 006124 

49 006126 

50 006134 

51 006136 

52 006144 

53 006146 

54 006154 
55 

56 
57 



010146 
010246 
113701 
042761 
032761 
001402 
004737 



004737 
103402 
000137 



032761 
001401;. 
052761 
004737 



032761 
00140J:> 
052761 
004737 



032761 
001031 
032761 
001425 
032761 
001021 
032761 
001010 
032761 
001004 
032761 
00140:v 



. SBTTL 

. SBTTL *•«• Program Level Input Character Processing ** 

. SBTTL GETCHR -- Cet next input char 

GETCHR — ROUTINE TO MOVE THE NEXT CHARACTER FROM THE 
INPUT BUFFER TO RO. 

IF NO CHARACTERS ARE AVAILABLE THE USER IS SUSPENDED 
UNTIL A RECORD IS RECEIVED. 



GETCHR: 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG GCHl: 



OOOOOOG 

007262 '■ 
006356 ' 



MOV R 1 , ~ < SP ) 

MOV R2, -(SP) 

MOVB C0RUSR,R1 ; GET USER'S INDEX # 

BIC #*GCESC. LSW3(R1); WE'RE NOT PROCESSING VT50 ESC SEQUENCE 

BIT #<:$DISCN+*CTRLC>,LSW<R1); DISCONNECT OR CTRL-C? 

BEG 8* ; BRANCH IF NEITHER 

CALL STOP ; STOP PROGRAM IF EITHER 



See if input is coming from a command file or from the terminal. 

8^: CALL GTCFCH i TRY TO GET A CHARACTER FROM A COMMAND FILE 

BR IF DID NOT GET ONE 
PROCESS CHAR FROM COMMAND FILE 

We did not get a character from a command file. 

If uje are processing a logoff command file, finish the logoff noui. 



CALL 


GTCFCH 


BCS 


15* 


JMP 


GCCKES 



OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*LOFCF, LSW9<Rl)i Are use processing a logoff command file? 

BEQ 13* J Br if not 

BIS #*DOOFF, LSW<R1) i Force job logoff 

CALL STOP 



If this is a detached job. halt its execution if command file finished 



OOOOOOG OOOOOOG 13*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*DETCH, LSW(Rl) 

BEQ 16* 

BIS #*DISCN, LSW<R1) 

CALL STOP 



Is this a detached job? 

Br if not 

Force job logoff 

Halt detached jobs that want terminal input 



OOOOOOC 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000137 006774' 



See if we should get a character from the single line editor. 

OOOOOOG 16*: BIT #<SPCTTY ! DISSLE>, LJSW(R1 ) i Sp ec ial TTY mode or SL disabled? 

BNE 11* ;Brifyes — don'tuseSL 

OOOOOOG BIT #*SLON, LSW7(R1) ;Is SL enabled for this line? 

BEQ 11* ;Br if not 

OOOOOOG BIT #<*ODTMDi*HlTTY>, LSW4(R1); Are u>e in ODT or high efficiency? 

BNE 11* ; Br if yes 

OOOOOOG BIT #*VTESC, LSW5<R1>; VTxxx activation enabled? 

BNE 11* ; Br if yes 

OOOOOOG BIT #*GTLIN, LSW4(R1.); Is a . GTLIN being done? 

BNE 12* ; Br if yes 

OOOOOOG BIT #*SLTTY. LSW7(R1); Is SL enabled for TTY input? 

BEQ 11* ; Br if not 

12*: OCALL GTSLCH ; Get character from single line editor 

JMP GCEXIT iExit from GETCHR 

Get character from the terminal. 
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58 


006160 


032761 


0000000 


OOOOOOG 


59 


006166 


00 1 006 






60 


006170 


013761 


0000000 


OOOOOOG 


61 


006176 


013761 


OOOOOOG 


OOOOOOG 


62 


006204 


005761 


0000000 




63 


006210 


001003 






64 


006212 


004737 


011156' 




65 


006216 


000666 






66 


006220 


016102 


0000000 




67 


006224 


004737 


016604' 




68 


006230 


103661 






69 


006232 


005061 


OOOOOOG 




70 










71 










72 










73 


006236 


032761 


OOOOOOG 


OOOOOOG 


74 


006244 


00141 ;> 






75 


006246 


032761 


OOOOOOG 


OOOOOOG 


76 


006254 


001411 






77 


006256 


004737 


017414'" 




78 


006262 


032700 


OOOOOOG 




79 


006266 


00 1 402 






80 


006270 


000137 


006526' 




ei 

82 
S3 


006274 


000137 


006572 ' 












84 










85 


006300 


032761 


OOOOOOG 


OOOOOOG 


86 


006306 


00 1 402 






87 










88 










89 










90 


006310 


000137 


006732 ' 




91 










92 










93 










94 










95 


006314 


032761 


OOOOOOG 


OOOOOOG 


96 


006322 


001402 






97 


006324 


000137 


006512' 




98 


006330 


120027 


OOOOOOG 




99 


006334 


001010 






100 


006336 


032761 


OOOOOOG 


OOOOOOG 


101 


006344 


00 1 404 






102 


006346 


052761 


OOOOOOG 


OOOOOOG 


103 


006354 


000721 







11*: 



14t.: 



9$: 



10*: 



6*: 



BIT 

BNE 

MOV 

MOV 

TST 

BNE 

CALL 

BR 

MOV 

CALL 

BCS 

CLR 



#*NOINT> LSW7 <R1 ) ; Does user want non-interactive execution? 
14* ; Br if yes 

VINTIO,LHIPCT<Rl)i Reset interactive I/O limit for job 
VQUANl, LITIHE<Rl)i Reset interactive CPU time limit 



LACTIV(Rl) 

9* 

ILWAIT 

GCHl 

LINPNT(Rl), R2 

DELCHR 

GCHl 

LRTCHR<R1) 



; Any activation chars pending? 

i Branch if yes 

iWait for activation 

J Go try again 

; Get pointer to next char to get 

i Get char and delete from input buffer 

; Br if no more characters are available 

i Say no read time-out pending 



See if we are in sing lecharac ter-activat ion mode. 



BIT #SPCTTY, LJSW<R1) 

BEQ 6* 

BIT #*CHACT, LSW5(R1) 

BEQ 6* 

CALL CVTLC 

BIT #ACFLAG, RO 

BEQ 10* 

JMP GCCKDS 

JMP GCCKCC 



DOES PROGRAM WANT SINGLE-CHAR INPUT? 

BR IF NOT 

IS SINGLE-CHARACTER INPUT ENABLED? 

BR IF NOT 

SET IF WE NEED TO CONVERT TO UPPER-CASE 

IS THIS AN ACTIVATION CHARACTER? 

BR IF NOT 



See if we avB in high-efficiency mode. 

BIT #*HITTY, LSW4(R1 ); ARE WE IN HIGH-EFFICIENCY MODE? 
BEQ 3* ;BR IF NOT 



We are in high-efficiency mode 



>*: 



JMP 



GCEND 



DO EXPRESS CHARACTER PROCESSING 



i SEE IF THIS IS FLAG CHAR MEANING NEXT CHAR IS PART OF 

i VT50 ESCAPE SEQUENCE. 

i 

3*: BIT #*GCESC, LSW3<R1); IS THIS CHAR PART OF ESC SEQUENCE? 

BEQ 1* ; BR IF NOT 

JMP GCCKAC ;TAKE CHAR WITHOUT FURTHER CHECKING 

1*: CMPB RO, #ESCFLG ; IS THIS FLAG FOR NEXT CHAR IN ESC SEQ? 

BNE GCCKES i BR IF NOT 

BIT #*VTESC,LSW5(Rl)i ARE WE ACTIVATING ON ESCAPE SEQUENCES? 

BEQ GCCKES i BR IF NOT 

BIS #*GCESC,LSW3(Rl)i REMEMBER NEXT CHAR PART OF ESC SEQ 

BR 9* i GO GET NEXT CHAR 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



006356 004737 017414' 



006362 
006370 
006372 
006400 



006402 
006404 
006406 

006412 
006416 

006420 
006424 
006430 
006432 
006434 

006436 
006440 
006444 

006446 
006452 
006456 
006462 
006464 
006470 
006472 
006476 
006502 
006510 



032761 
001450 
032761 
001074 



010346 
010002 
042702 



120227 

101013 

012703 
120263 
00 1 402 
005303 

100373 

006303 
016303 
00040? 

012703 
010361 
120227 
103405 
120227 
1 1 OOP 
162702 
110261 
052761 
012603 



OOOOOOG 
0000000 



177400 
000037 



000004 
007006 ' 



007016' 



004056 ' 
0000000 
000141 

000172 

000040 

0000000 

0000000 



OOOOOOG 
OOOOOOG 



WE HAVE THE NEXT CHARACTER IN RO. 

SEE IF WE NEED TO TRANSLATE LOWER CASE CHARS TO UPPER CASE. 

GCCKES: CALL CVTLC ; CONVERT LC TO UC IF NEEDED 

SEE IF WE NEED TO DO ECHO SUPPRESSION. 

BIT #SPCTTY, LJSW<R1); IS ECHO SUPPRESSION NEEDED? 

BEO GCCKAC ; BRANCH IF NOT 

BIT #*CHACT, LSW5(R1 ); ARE WE IN SINGLE-CHAR-ACTIVATION MODE? 

BNE GCCKCC ; BR IF YES 

BEGIN ECHO SUPPRESSION. 

HDV R3, -<SP) 

MOV RO. R2 i GET THE CHAR 

BIC #177400, R2 i CLEAR ACTIVATION CHAR FL/iG 

; SEE IF THIS IS A REGULAR OR CONTROL CHARACTER 

CMPB R2> #37 i REGULAR OR CONTROL? 

BHI 4* ; BRANCH IF REGULAR CHAR 

i THIS IS A CONTROL CHAR — CHECK FOR SPECIAL CASES. 

5*: 



MOV 


#NESCTL, R3 


# OF SPECIAL CONTROL CHARS 


CHPB 


R2, SESCTL<R3> 


IS THIS ONE? 


BEQ 


8« 


BRANCH IF YES 


DEC 


R3 


TRY REST 


BPL 


5* 





FALL THROUGH WITH R3-^-i FOR REGULAR CONTROL CHAR. 



8*: 



4$: 
6$: 



ASL R3 

MOV SESRTN<R3), R3 

BR 6* 

THIS IS NOT A CONTROL CHAR. 



GET WORD TABLE INDEX 
GET ROUTINE ADDRESS 



SET NORMAL HANDLER ROUTINE 
SET HANDLER ROUTINE FDR PUTCHR 
IS CHAR A LOWER-CASE LETTER? 
BR IF NOT 



1*: 



OOOOOOG 



MOV #ESUAC, R3 

MOV R3, LESRTN<R1) 

CMPB R2, #141 

BLO 1 $ 

CMPB R2, #172 

BHI 1* 

SUB #40, R2 > CONVERT LOWER-CASE TO UPPER-CASE 

MOVB R2, LESCHR(R1 ) ; REMEMBER CHAR 

BIS #*NOOUT, LSW3<R1 ); TURN ON ECHO SUPPRESSION 

MOV ( SP ) +, R3 



GETCHR - 



1 



TSX Termii 
• Get next 



a 1 I/O r u t i 
input char- 
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Bep if this is an activation character. 



006512 
006516 
006520 
006524 



006526 
006534 
006536 
006544 
006546 
006554 



006556 
006564 



006566 004737 007030 ' 



3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 006572 

31 006576 

32 006600 

33 006606 

34 006610 

35 006616 

36 006620 

37 006624 

38 006626 

39 006634 

40 006636 

41 006642 

42 006644 

43 006652 

44 006654 

45 006660 

46 006662 

47 006670 

48 006672 

49 006700 

50 006702 

51 006706 

52 006712 



004737 
103017 
032700 
00 1 474 



007760 ' 
OOOOOOG 



GCCKAC: CALL 
BCC 
BIT 
BEO 



CFTEST 
GCCKCE 
#ACFLAG, RO 
GCCKDE 



INPUT FROM CONTROL FILE? 
BR IF YES 

IS THIS AN ACTIVATION CHAR? 
BRANCH IF NOT. 



This is an activation character. 

See if we need to start doing deferred echoing. 



032761 
001416 
032761 
001010 
052761 
000406 



032761 
00 1 002 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



120027 
001055 
032761 
001016 
032761 
001045 
005761 
001042 
032761 
001403 
004737 
103033 
032737 
001417 
004737 
103404 
032761 
001010 
032761 
001404 
004737 
004737 
004737 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



010714' 
010764' 
OOOOOOG 



GCCKDS: BIT 
BEQ 
BIT 

BWE 
BIS 
BR 



#«DODFR, LSW3<Ri)j IS ECHOING BEING DEFERRED? 

GCCKCC ; BRANCH IF NOT 

#*GCECO, LSW3<Rl)i HAVE WE ALREADY STARTED? 

GCEAC ; BRANCH IF YES 

#«GCEC0>LSW3(R1); BEGIN DEFERRED ECHOING WITH NEXT CHAR 

GCCKCC 



See if ujant to list the contents of a control file. 



OOOOOOG OOOOOOG 



GCCKCE: BIT 
BNE 



#*QUIET,LSW4<Rl)iLIST COMMAND FILE? 
GCCKCC iBR IF NO LIST 



; ECHO THE ACTIVATION CHAR NOW. 

GCEAC: CALL GCECHO ; ECHO THE CHARACTER 

> See if character we got is control-c. 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

007760 ' 

OOOOOOG OOOOOOG 7$: 

007760' 

OOOOOOG 

OOOOOOG 



GCCKCC: CMPB 
BNE 
BIT 
BNE 
BIT 
BNE 
TST 
BNE 
BIT 
BEG 
CALL 
BCC 
BIT 
BEQ 
CALL 
BCS 
BIT 
BNE 

6*: BIT 
BEQ 
CALL 
CALL 

SIS: CALL 



RO, #CTRLC 

GCEND 

#*DBGMD, LSW6(R1) 

7* 

#*UCTLC,LSW4<R1) 

GCEND 

LSCCA<R1) 

GCEND 

#*CCLRN, LSW5<R1) 

7* 

CFTEST 

GCEND 

#LF«IN, LOGFLG 

8* 

CFTEST 

6$ 

#tQUIET, LSW4<R1) 

8* 

#*ECHO, LSW2<R1) 

8« 

LOGCHR 

LOGCR 

STOP 



IS CHAR CTRL-C? 

BRANCH IF NOT 

IS A DEBUGGING PROGRAM IN CONTROL? 

BR IF YES 

IS CTRL-C A USER DEF ACTIV CHAR? 

BRANCH IF IT IS 

DID USER DO . sec A? 

BR IF YES 

IS CCL TRANSLATOR RUNNING? 

BR IF NOT 

IS INPUT COMING FROM A COMMAND FILE? 

BR IF YES 

Are u»e logging input characters^' 

BR IF NOT 

IS INPUT COMING FROM A CONTROL FILE? 

BR IF NOT 

SHOULD WE DISPLAY CONTROL FILES? 

BR IF NOT 

ARE WE ECHOING CHARACTERS? 

DON'T LOG IF NOT ECHOING 

LOG THE CONTROL-C 

LOG CR-LF 

STOP PROGRAM EXECUTION 



TSTTY ~ 
GETCHR - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



TSX Terminal I/O routi 
- Get next input char 



006716 
006724 
006726 



006732 
006740 
006742 
006746 
006750 
006756 
006760 
006766 
006770 
006774 
007000 
007002 
007004 



032761 
001402 
004737 



032737 
001415 
004737 
103404 
032761 
00 1 006 
032761 
00 1 402 
004737 
042700 
012602 
012601 
000207 
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THIS CHAR IS NOT AN ACTIVATION CHAR. 
SEE IF WE NEED TO DO DEFERRED ECHOING. 



OOOOOOG OOOOOOG 
007030 ' 

OOOOOOG OOOOOOG 

007760 ' 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

010714' 
177400 



GCCKDE: BIT 
BEQ 
CALL 



#*0CEC0>LSW3(Rl)i HAVE WE STARTED DEFERRED ECHOING? 
GCEND ; BRANCH IF NOT 

GCECHO i ECHO THE CHARACTER 



See if we should write character to log file 



GCEND: BIT 
BEQ 
CALL 
BCS 
BIT 
BNE 

1*: BIT 
BEQ 
CALL 

GCEXIT: BIC 
MOV 
MOV 
RETURN 



#LF*IN, LOGFLG 

GCEXIT 

CFTEST 

1* 

#*QUIET, LSW4<R1) 

GCEXIT 

#*ECHO, LSW2<R1) 

GCEXIT 

LOGCHR 

#'-C377. RO 

(SP)+, R2 

<SP>+, Rl 



Are me logging input characters? 

Br if not 

Is input coming from a control file? 

Br if not 

Should Mte log control file characters? 

Br if not 

Is echo suppression in effect? 

Do not log if not echoing 

Log the character 

Mask character to 8 bits 



TSTTY 



ETCHR •• 


- Get n 


e X t i ri p iJ 


J 

2 






3 






4 






5 






6 






7 


007006 


OOOG 


a 


007007 


OOOG 


9 


007010 


OOOG 


10 


007011 


OOOG 


11 


007012 


OOOG 


12 




000004 


13 






14 






15 






16 






17 






18 






19 






20 






21 


007014 


004110' 


22 


007016 


004 1 54 ■' 


23 


007020 


00417,2' 


24 


007022 


0041 36-' 


25 


007024 


004136' 


26 


007026 


004202 ' 
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TABLE OF CONTROL CHARACTFRS WHICH REQUIRE SPECIAL 
PROCESSING WITH REGARD TO ECHO SUPPRESSION. 

TABLE OF CONTROL CHARACTERS. 



i 
I 

f 



SESCTL: 


. BYTE 


FF 


FORM FEED 




. BYTE 


ESC 


ESCAPE 




. BYTE 


LF 


LINE FEED 




. BYTE 


CR 


CARRIAGE RETURN 




. BYTE 


TAB 


TAB 


NESCTL 


:= 


. -SESCTL- 1 


# OF SPECIAL CHARS 



. EVEN 

PARALLEL TABLE OF ADDRESSES OF ROUTINES TO RESTART 

OUTPUT WHEN ECHO SUPPRESSION IS IN EFFECT FOR 

SPECIAL CONTROL CHAR. 

SESRTN TABLE MUST BE PARALLEL TO SESCTL TABLE. 

NOTE: ( -1) TABLE ENTRY IS USED FOR REGULAR CONTROL CHARS. 



;(-l) REGULAR CONTROL CHAR 

i FORM FEED 

i ESCAPE 

i LINE FEED 

i CARRIAGE RETURN 

i TAB 





. WORD 


ESCTL 


SESRTN: 


. WORD 


ESFF 




. WORD 


ESESC 




. WORD 


ESCRLF 




. WORD 


ESCRLF 




. WORD 


ESHT 



4 
i 
4 
< 
4 
i 
{ 
{ 
I 
i 
i 



TSTTY — T3X Terrnxnai x/'u routi HACRO VOS. 04 
G E T C H R — Get next input char 
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2 

r} 
i^ 

4 
5 
6 
7 
S 
9 
10 
11 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



007030 
007034 
007036 
007044 
007046 
007054 
007056 
007060 
007062 
007064 



007070 
007074 
007076 
007104 
007106 
007114 
007116 



007120 
007124 
007126 
007132 
007134 
007136 

007140 
007144 
007146 
007152 
007154 
007160 

007162 
007166 
007170 
007174 
007 1 76 
007202 

007204 
007206 
007212 
007216 
007220 
007224 



OCECHO IS CALLED TO ECHO A CHARACTER AS IT IS PASSED 

TO THE USER IF WE ARE IN DEFERRED ECHO MODE. 

WHEN CALLED, THE CHARACTER TO BE ECHOED MUST BE IN 

RO AND THE USER INDEX NUMBER MUST BE IN Rl. 

ALL REGISTERS ARE PRESERVED. 



004737 017214' 

103511 

032761 0000000 OOOOOOG 

001505 

032761 OOOOOOG OOOOOOG 

001101 

010046 

1 0246 

010346 

042700 OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



GCECHO: 



CALL 

BCS 

BIT 

BEQ 

BIT 

BNE 

MOV 

MOV 

MOV 

BIC 



SCACHK 

99$ 

#*ECHO, LSW2(R1) 

99* 

#*GCESC, LSW3<R1) 
99$ 

RO, -<SP) 



ARE WE IN SINGLE CHARACTER INPUT MODE? 

BR IF YES — DON'T ECHO CHARACTER 

IS CHAR ECHOING WANTED? 

RETURN IF NOT 

IS THIS CHAR PART OF ESC SEQUENCE? 

BR IF YES 



f 

€ 



R3, -<SP) 
#ACFLAG, RO 



i STRIP OFF ACTIVATION-CHAR FLAG 



See if we should echo line-feed characters 



120027 
001011 
032761 
001405 
032761 
001456 
000453 



1 6 1 02 
001405 
016103 
120023 
00 1 446 
077203 

1 20027 
101040 
120027 
001003 
1 1 2700 
000432 

120027 
001406 
120027 
001403 
120027 
001021 

1 1 0003 
1 1 2700 
004737 
1 1 0300 



CMPB 


RO, #LF 


BNE 


7* 


BIT 


#*NOLF, LSW6<R1} 


BEQ 


7* 


BIT 


#*DBGMD, LSW6<RJ) 


BEQ 


2* 


BR 


5* 



IS THIS CHAR LINE-FEED? 

BR IF NOT 

IS LINE-FEED ECHO SUPPRESSION IN EFFECT? 

BR IF NOT 

IS A DEBUGGER RUNNING NOW? 

BR IF NOT <DON'T ECHO LF) 

ECHO LF 



SEE IF CHAR IS A USER DEFINED ACTIVATION CHAR. 



OOOOOOG 
OOOOOOG 



7$: 



3$: 



MOV 

BEQ 

MOV 

CMPB 

BEQ 

SOB 



LNSPAC<R1). 
1* 

LSPACT(R1 ): 
RO, (R3) + 
2* 
R2, 3* 



R2 ; GET # OF USER DEF ACT IV CHARS 

BRANCH IF NONE 
R3 ; POINT TO TABLE FOR USER 

SEE IF THIS IS ONE 

BRANCH IF IT IS 

LOOP IF MORE TO CHECK 



000037 

OOOOOOG 

000044 

OOOOOOG 
OOOOOOG 
OOOOOOG 



000136 
003056' 



i SEE 
1$: 



004737 003056' 



IF CHARACTER IS ESCAPE. 

CMPB RO, #37 

BHI 5* 

CMPB RO, #ESC 

BNE 4* 

MOVB #'*, RO 

BR 5* 
i CHECK FOR SPECIAL CONTROL 

4$: CMPB RO, #CTRL7 

BEQ 6* 

CMPB RO, #CTRLC 

BEQ 6* 

CMPB RO, #CTRLX 

BNE 5* 
J ECHO ---CHAR FOR SPECIAL 

MOVB RO, R3 

MOVB #136, RO 

CALL PUTCHl 

MOVB R3, RO 

»J.a #iOu, KU 

CALL PUTCHl 



6$: 



REGULAR OR CONTROL CHAR? 

BRANCH IF REGULAR CHARACTER 

IS CHAR ESCAPE? 

BRANCH IF NOT 

OTHERWISE, ECHO * FOR ESCAPE 



CHARACTERS. 
> CTRL-Z? 
i BRANCH IF YES 
i CTRL-C? 



i CTRL-X? 

J BRANCH IF NOT SPECIAL CONTROL CHAR 
CONTROL CHARS 

i SAVE CONTROL CHAR 
i ECHO -^ 



GET CONTROL CHAR 
CONVERT TO PRINTING CHAR 
PRINT CHAR 



TSTTY ~- TSX Terminal I/D routi MACRO V05. 04 
GE"tCHR — Get next inf»ut char 



58 


007230 


1 1 2700 


ooooooe 


59 


007234 


004737 


003056 ' 


60 


007240 


:i. :l 2700 


0000000 


6.1 


007244 


000400 




62 








63 








64 








65 








66 


007246 


004737 


003056' 


67 








68 


007252 


012603 




69 


007254 


012602 




70 


007256 


012600 




71 


007260 


000207 
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ECHO CR 





MOVE 




#CR,RO 




CALL 




PUTCHl 




MOVE 




#LF. RO 




i:}R 




5* 




THIS IS A 


REGULAR CHARACTER. 


i 
i 


ECHO CHAR 


IN 


RO. 


5*: 


CALL 




PUTCHl 


i 


RETURN 






2f: 


MOV 




(SP)+, R3 




MOV 




(SP)+, R2 




MOV 




(SP)+, RO 


99? 


&: RETURN 





ECHO THE CHARACTER 



i 

€ 

< 
i 
i 
i 
i 
i 
I 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 
20 
21 
22 

d. w 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007262 004737 007760 
007266 103543 



007270 1 1 3700 OOOOOOG 

007274 00 1 403 

007276 105037 0000000 

007302 000532 



007304 004737 007600' 

007310 103531 

007312 120027 000136 

007316 001124 



. SBTTL GTCFCH — Try to get char from command file 

OTCFCH is called to try to obtain a character from a command file. 

Inputs: 
Rl = Job index number. 

Outputs: 
C-flag cleared if a character is obtained from command file. 
RO = Character obtained. 

See if we are getting characters from a command file. 



GTCFCH: CALL 
BCS 



CFTEST 
13$ 



i SEE IF INPUT IS COMING FROM A COMMAND FILE 

;BR IF NOT 



See if uie are holdinq a character 



MOVE 


CFHOLD, RO 


BEO 


10* 


CLRB 


CFHOLD 


BR 


12* 



ARE WE HOLDING A CHARACTER? 
BR IF NOT 

SAY CHARACTER IS GONE 
TAKE SUCCESSFUL RETURN 



Input is coming from a command file. 



10*: 



CALL 
BCS 
CMPB 
BNE 



CFCHAR 
14* 

RO, #'•"• 
12* 



GET CHAR FROM CONTROL FILE 
BR IF END OF COMMAND FILE HIT 
IS THIS A CONTROL CHAR? 
BRANCH IF NOT 



We found """ character in command file. 

This means we may have to treat the next character as a control char. 



007320 004737 007600 - 
007324 103523 



007326 120027 000044 

007332 00 1 003 

007334 012700 OOOOOOG 

007340 000513 



007342 120027 000136 
007346 001510 



007350 120027 000050 

007354 001007 

007356 052761 OOOOOOG OOOOOOG 

007364 042761 OOOOOOG OOOOOOG 

007372 000744 



CALL 



CFCHAR 

14* 



■■'* is interpreted as escape 



CHPB 


RO, #'* 


BNE 


3* 


MOV 


#ESC, RO 


BR 


12* 



i GET NEXT CHAR 

; BR IF END OF COMMAND FILE HIT 



; TREAT •-* AS ESCAPE CHAR 



is interpreted as a single '■ 



3*: 



CHPB 
BEQ 



RO, #'•'■• 
12* 



; ANOTHER "•'^■'? 

i IF YES THEN RETURN "•'^" AS CHARACTER 



( means stop listing control file 

CMPB RO, #'( i STOP LISTING COMMAND? 

BNE 4* J BR IF NOT 

BIS #*QU I ET, LSW4<R1 >; SET NO LISTING FLAG 

BIC #*CFSOT, LSW4<R1>; ALLOW PROGRAM OUTPUT TO PRINT 

BR 10* ; GO GET NEXT CHAR FROM FILE 

) mBans start listing control file 



TSTTY — 
GTCFCH - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

103 

109 

110 

111 

112 

113 

114 
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007374 
007400 
007402 
007410 



007412 
007416 
007420 
007426 



007430 
007434 
007436 
007444 



007446 
007452 
007454 
007462 



007464 
007470 
007472 
007476 



007500 
007504 
007506 
007514 
007520 



120027 
OOIOO^'I 
042761 
000735 



120027 
001004 
052761 
000726 



120027 
001004 
052761 
000717 



120027 
001004 
042761 
000677 



120027 
103414 
120027 
101011 



042700 
006300 
016037 
004737 
000671 



000051 

OOOOOOC 0000000 



4$: 



000041 

OOOOOOC 0000000 



7*: 



000076 

OOOOOOG OOOOOOC 



000074 

OOOOOOG OOOOOOG 



CMPB RO, #') ; START-LISTING COMMAND? 

BNE 7* i BR IF NOT 

BIC #<*QUIET!*CFS0T>,LSW4<Rl)i START LISTING FILE 

BR 10* ;G0 GET NEXT CHAR 

•'' ! means suppress all output — command file and program 

CMPB RO, #'! i SUPPRESS OUTPUT? 

BNE 5* >BR IF NOT 

BIS #<*CFS0T!*QUIET>,LSW4(Rl)i BEGIN SUPPRESSING OUTPUT 

BR 10* 

■'""> means accept all chars from ©file 

5*: CMPB RO, #'> i ACCEPT ALL CHARS? 

BNE 6* i BR IF NOT 

BIS #*CFALL, LSW4(R1); SET FLAG 

BR 10* 

i 

■> ■''< means accept only .gtiin chars from ©file 

6*: CMPB RO, #'< i ACCEPT ONLY . GTLIN CHARS? 

BNE 2* ; BR IF NOT 

B I C #*CFALL, LSW4 < R 1 ) ; RESET FLAG 

BR GTCFCH 

'digit is used to indicate a parameter substitution 



000061 
000060G 



.'*: 



CMPB 


RO, #'1 


BLO 


1* 


CMPB 


RO, #<60+MXCPRM> 


BHI 


1* 



177760 

177776G 
OOOOOOG 



OOOOOOG 



"DIGIT MEANS SUBSTITUTE PARAM 
BR IF NOT PARAM 
IN VALID RANGE? 
BR IF NOT 

Switch input to a parameter string 

BIC #177760, RO i LEAVE VALUE ONLY 

ASL RO ; CONVERT TO WORD TABLE INDEX 

MOV <PRMPNT-2><R0),CURPRM ; SET CHAR STRING POINTER 

CALL CHKABT ; ALLOW ABORTS WHILE GETTING PARAMETERS 

BR 10* iGO GET 1ST CHAR FROM STRING 

■'"letter causes the letter to be converted to a control character 



007526 
007530 
007534 
007536 
007542 
007544 
007550 
007552 
007556 



103414 
120027 
101406 
120027 
103406 
120027 
1 1 003 
042700 
000404 



000101 
000132 
000141 
000172 
177740 



1*: 



16*: 



CMPB 


RO, #'A 


BLD 


15* 


CMPB 


RO, # ' Z 


BLOS 


16* 


CMPB 


RO, #141 


BLO 


15* 


CMPB 


RO, #172 


BHI 


15* 


BIC 


#177740, RO 


BR 


12* 



; IS THIS A LETTER? 
;BR IF NOT 

BR IF UPPER-CASE LETTER 

SEE IF THIS IS A LOWER-CASE LETTER 

BR IF NOT 

BR IF NOT LETTER 

CONVERT ALPHA TO CONTROL CHAR 

RETURN CONTROL CHARACTER AS CHARACTER GOTTEN 



■'- was folloujed by something use don't recognize. 
Just return the •"• as the character gotten. 
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115 

116 007560 110037 OOOOOOQ 

117 007564 112700 000136 

ua 

119 
120 

121 007570 000241 

122 007572 000401 

123 007574 000261 

124 007576 000207 



15*: 



MOVB 
MOVE 



Finished 



12*: 

14*: 
13*: 



RO. CFHDLD 
#'■'-, RO 



CLC 
BR 
SEC 
RETURN 



13* 



"PUSH" THE NEXT CHARACTER 
RETURN •'■-^" AS THIS CHARACTER 



; INDICATE SUCCESSFUL RETURN 
i INDICATE UNSUCCESSFUL RETURN 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
CFCHAR "- Do command file I/O 



3 








4 








5 








6 








7 








8 








9 








io 








1.1 








12 








13 








14 








15 


007600 


010246 




16 


007602 


013702 


0000000 


17 


007606 


00 1 407 




IS 








19 








20 








21 


007610 


1 1 2200 




22 


007612 


001403 




23 


007614 


010237 


0000000 


24 


007620 


000452 




25 








26 








27 


007622 


005037 


0000000 


28 








29 








30 








31 


007626 


013702 


0000000 


32 


007632 


020227 


OOOOOOG 


33 


007636 


103437 




34 








35 


007640 


113746 


000052 


36 


007644 


005237 


OOOOOOG 


37 


007650 






38 


007710 


112637 


000052 


39 


007714 


103006 




40 








41 








42 








43 








44 


007716 


004737 


010070' 


45 


007722 


005737 


OOOOOOG 


46 


007726 


00 1 337 




47 


007730 


000410 




48 








49 


007732 


012702 


0000000 


50 


007736 


1 1 2200 




51 


007740 


00 1 734 




52 


007742 


010237 


0000000 


53 








54 


007746 


000241 




55 


007750 


00040.1 




56 








57 


007752 


000261 
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. SBTTL CFCHAR — Do command file I/O 



i 
f 



CFCHAR is the loweBt level routine called to get a character from 
a command file. It does the actual I/O to read the command file 
and returns the next character from the buffer or from a parameter 
string if string substitution is being done. 

Inputs: 
Rl = Current job index number. 

Outputs: 
RO -• Next character from command file. 
C-flag set on return if end of file hit. 



CFCHAR: MOV 
MOV 
BEQ 



CURPRM, R2 
5* 



J INPUT FROM PARAM STRING? 
; BR IF NOT 



INPUT IS COMING FROM A PARAMETER STRING 

GET NEXT CHAR FROM STRING 
BR IF HIT END OF STRING 
UPDATE CHAR POINTER 
RETURN 

> HIT END OF PARAMETER STRING. 

; SWITCH INPUT BACK TO CONTROL FILE. 

6$: CLR CURPRM ; CLEAR PARAM STRING POINTER 

GET CHARACTER FROM CONTROL FILE 



MOVB 


(R2)+, RO 


BEG 


6« 


MOV 


R2, CURPRM 


BR 


9* 



5*: MOV CFPNT, R2 

4$: CMP R2, ttCFEND 

BLO 1* 

} REACHED END OF BUFFER - 

MOVB @#52, -(SP) 

INC CFBLK 



i GET POINTER INTO BUFFER 
; HIT END OF BUFFER? 
; BRANCH IF NOT 
READ IN NEXT BLOCK. 

; SAVE I/O ERROR CODE 
; INC FILE BLOCK NUMBER 



. READW #CFARG, #€FCHAN> #CFBUF, #256. , CFBLK 

MOVB (SP)+, e#52 ; REPLACE ERROR CELL 

BCC 3* iBR IF NOT AT END OF FILE 

End of file has been hit. 

Iry to pop up to higher level file. 



TRY TO POP UP TO HIGHER LEVEL FILE 
WAS THERE A HIGHER LEVEL FILE? 
BR IF YES 



RESET BUFFER POINTER 
GET NEXT CHAR 
IGNORE NULLS 
SAVE NEW CHAR POINTER 



CALL 


CFPOP 


TST 


CFPNT 


BNE 


5* 


BR 


11* 



i GET NEXT CHAR FROM BUFFLR 
3*: MOV #CFBUF, R2 
IS: MOVB (R2)+, RO 

BEQ 4* 
8*: MOV R2. CFPNT 
i Successful return. 
9*: CLC 

BR 12$ 
i Unsuccessful return. 
11*: SEC 



; SIGNAL UNSUCCESSFUL RETURN 
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58 007754 012602 12*: MOV (SP)+, R2 

59 007756 000207 RETURN 



i 



TSTTY — TSX Terminal I/O 
CFTEST — Determine if TT 



1 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



007760 
007764 
007766 
007774 
007776 
010004 
010006 
010010 
010012 
010014 



005737 
001412 
032761 
001004 
032761 
001402 
000241 
000207 
000261 
000207 



routi MACRO V05. 04 
input is from file 
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. SBTTL CFTEST 



Determine if TT input is from file 



CFTEST IS CALLED TO DETERMINE IF TT INPUT IS COMING FROM 

A COMMAND FILE. 

IF YES, THE C-FLAG IS RESET ON RETURN. 

IF NO, THE C~FLAG IS SET ON RETURN. 

WHEN CALLED, Rl MUST CONTAIN THE USER INDEX NUMBER. 

ALL REGISTERS ARE PRESERVED. 



OOOOOOG 



CFTEST: TST 
13EQ 
OOOOOOG OOOOOOG CFTSTl 

OOOOOOG OOOOOOG 



CFTSTl 


BIT 




BNE 




BIT 




BEQ 


2*: 


CLC 




RETURN 


CFTNO: 


SEC 




RETURN 



CFPNT ; INPUT FROM COMMAND FILE? 

CFTNO J BR IF NOT 

#*GTLIN, LSW4<Rl)i IS THIS A . GTLIN INPUT EMT? 

2* i BR IF YES 

#*CFALL, LSW4<Rl)iGET . TTYIN INPUT FROM ©FILE? 

CFTNO ; BR IF NOT 

} SAY INPUT COMING FROM FILE 

J SAY INPUT NOT COMING FROM FILE 
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1 . SBTTL CFSTOP — Suspend command file input 



3 
4 
5 
& 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



010016 010046 



010020 005037 0000000 



010024 013700 0000000 

010030 042760 0000000 OOOOOOG 



010036 012600 
010040 000207 



.: Suspend command file input by setting CFPNT=0. 
i All registers are preserved. 

CFSTOP: MOV RO, -<SP) 

Say input not coming from a command file 

CLR CFPNT ; Suspend command file input 

Clear command-f i ie-active status flag in RMON cell 



MOV 
QIC 

F i ?i i 5 h e d 



CXTRMN, RO J Get virtual address of RMON in cxt blk 
ttCFACFL, R*CFST(RO) ; Say command file not active 



010042 010046 



010044 010037 OOOOOOG 
010050 001405 



010052 013700 OOOOOOG 

010056 052760 OOOOOOG OOOOOOG 



010064 012600 
010066 000207 



MOV <SP)+, RO 
RETURN 

.SBTTL CFSTRT — Restart command file input 

Restart command file input by storing a non-zero value into CFPNT. 

I n p u t s : 
RO = Value to store into CFPNT 

CFSTRT: MOV RO, ~<SP) 

Restart command file input 



MOV 
BEQ 



ROi CFPNT 
9« 



; Set command file buffer pointer 
i Br if not starting command file 



Set command-file-active flag in RMON status cell 



MOV 

BIS 

Finished 



CXTRMN, RO iGet virtual address of RMON in cxt blk 
#CFACFL, R*CFST<RO) i Set command-file-active flags 



9*: MOV <SP)+, RO 
RETURN 



TSTTY 
CFPOP 



Pop up 



:(./0 routi MACRO V05. 04 
to next command file 
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i 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



010070 
010072 
010074 
010076 
010100 
010104 
010110 
010116 
010122 
010124 
010130 
010134 
010142 



010146 
010154 
010156 
010164 



010172 
010176 



010200 
010204 



ccc 

010230 
010236 
010240 
010246 
010254 
010256 
010264 
010270 
010274 
010276 
010302 
010310 
010312 
010320 
010326 
010332 
010334 



. SBTTL CFPOP — Pop up to next command file 

CFPOP is called to close the current command file and pop up to 
the next higher command file. 



010146 
010346 
010446 
010546 
1 1 3746 
113701 
042761 
005737 
00 1 002 
000137 
013705 
113765 
105037 



032761 
001406 



000052 
OOOOOOG 

OOOOOOG OOOOOOG 
000000<5 

010676' 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



042761 OOOOOOG OOOOOOG 



105737 
001060 



004737 
042761 
032761 
001006 
042761 
042761 
005000 
016060 
032761 
001403 
016060 
062700 
020027 
103761 
005037 
032761 
00157,*' 
042761 
042761 
105737 
001561 
004737 



OOOOOOG 



010016' 

OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000002 

OOOOOOC 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



CFPOP: 


MOV 


Rl, -<SP) 




MOV 


R3, ~(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




MOVE 


©#52, -<SP) 




MOVE 


CORUSR, Ri 




BIC 


#«CFCCL, LSW4<R1) 




TST 


CFPNT 




13 NE 


11* 




JMP 


9* 


11*: 


MOV 


CXTRMN, R5 




MOVE 


CFINDi R*INST(R5) 




CLRB 


CFHOLD 



SAVE I/O ERROR CODE CELL 

GET JOB INDEX NUMBER 

SAY WE ARE NOT GETTING CHARS FROM CCL COMMAND 

IS A COMMAND FILE IN USE NOW? 

Br if yes 

GET ADDRESS OF SIMULATED RMON DATA 

RESTORE IND STATUS BYTE 

CLEAR ANY COMMAND FILE HOLDING CHAR 

Close currently open file 

BIT #*CFOPN, LSW4(Rl>i IS THE COMMAND FILE CHANNEL OPEN? 

BEO 1$ ;BR IF NOT 

. PURGE #CFCHAN ; CLOSE CURRENT FILE 

BIC #*CFOPN, LSW4(R1);SAY COMMAND FILE CHANNEL IS NOW CLOSED 

See if there is a higher level command file to restore 



1$: 



TSTB 
BNE 



CFNEST 
2* 



J ANY HIGHER LEVEL COMMAND FILES? 

i BR IF YES 



OOOOOOG 
OOOOOOG 

15*: 
OOOOOOG 10«: 
OOOOOOG 

OOOOOOG 



There are no higher level command files 

CALL CFSTOP ; Say no data coming from command file 

BIC #<*CFALL.'*CFSOT>, LSW4<R1) ; CLEAR COMMAND FILE CONTROL FLAGS 

BIT #*LOFCF> LSW9<R1 )j Are we leaving a log off command file? 

BNE 15* ; If so, do not restore terminal input 

BIC #*NOIN, LSW3<R1) ; ALLOW INPUT TO BE ACCEPTED FOR LINE 

BIC #*SUCF, LSW9(R1 ) ; Say we are no longer executing startup file 

CLR RO i Init privilege vector index 

MOV PRIVSO(RO), PRIVFO<RO); Reset command file priv to set priv 

BIT #*INKMN, LSW4(R1); Are we in TSKMON now? 

BEQ 12* ; Br if not 

MOV PRIVSO<RO),PRIVCO(RO) i Reset current privileges 

12*: ADD #2, RO ; Increment word index 

CMP RO, #PVNPW*2 i Done all? 

BLO 10* ; Loop if more 

CLR AFCF j Clear command file attribute flags 

BIT #*INKMN, LSW4(Rl)i Are we in TSKMON now? 

BEQ 9* J Br if not 

BIC #*SCCA, LSW5<R1 ) ; Clear abort-suppression flag 

BIC #*NOWIN, LSWlKRDiClear window suppression 

TSTB SUCF2 > Is there a pending secondary file? 

BEQ 9* >Br if not 

CALL STOP i Reenter KMON to start secondary file 

i Reopen next higher level file 



TSTTY — T3X Terminal I/O routi MACRO V05. 04 
CFF^OP --- Pop up to next command file 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

6S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

B2 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



010340 
010344 
010350 
010352 
010354 
010356 
010360 
010364 
010366 
010370 



010372 
010374 
010400 
010404 
010406 
010410 
010412 



010422 
010426 
010432 
010434 
010436 



010442 
010446 
010454 
010462 
010464 
010472 
010500 
010502 



010510 
010512 
010516 
010522 
010526 
010532 



013705 
012703 
012504 
001402 
010423 
000774 
020327 
103002 
005023 
000773 



012504 
010437 
020427 
101402 
012544 
000773 
012537 



0000000 
OOOOOOG 



0000000 



; Restore parameter pointers 

i 

2*: 
4*: 

3*: 



MOV 


CFSP, R5 


MOV 


#PRMPNT, R3 


MOV 


(R5)+,R4 


BEQ 


3* 


MOV 


R4, (R3)+ 


BR 


4* 


CMP 


R3, #LSTPRM 


BHIS 


5* 


CLR 


<R3) + 


BR 


3* 



GET COMMAND FILE STACK POINTER 

POINT TO PARAM POINTER CELLS 

GET A PARAMETER POINTER 

BR IF END OF LIST HIT 

RESTORE POINTER 

GO BACK AND DO NEXT ONE 

ZERO ALL OTHER PARAMETER POINTERS 



I 

i 
I 



Restore parameter strings 



OOOOOOG 
OOOOOOG 



OOOOOOG 



5$; 
7*: 

6$: 



MOV 


(R5)+, R4 


> 


MOV 


R4, PBFEND 




CMP 


R4, #PRMBUF 


> 


BLOS 


6* 


f 


MOV 


(R5>+, ~<R4) 


i 


BR 


7* 




MOV 


(R5)+, CURPRM 


i 



010416 012537 OOOOOOG 



Restore IND status flags 
MOV <R5)+, CFIND 



;GET ADDRESS OF END OF STRING 

RESTORED ALL OF STRING? 

BR IF YES 

POP STRING OFF OF STACK 

; POP POINTER INTO STRING 



i RESTORE IND STATUS FLAGS 



Reset command file control flags 



012704 
040461 
005104 
040415 
052561 



012537 
052761 
032737 
001003 
042761 
032737 
001003 
042761 



005000 
011560 
012560 
062700 
020027 
103767 



OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV #CFLFL4, R4 

BIC R4, LSW4(R1) 

COM R4 

BIC R4, (R5) 

BIS <R5)+, LSW4(R1) 



GET CONTROL FLAG MASK 

CLEAR THOSE FLAGS 

MASK ALL BUT THOSE FLAGS 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 

ooooooc 



i SET DESIRED FLAGS 

Restore command file attribute flags 

MOV (R5)+>AFCF i Restore command file attribute flags 

BIS #*SCCA, LSW5(R1 ) ; Assume ctrl-C abort suppression wanted 

BIT #AF*CCA» AFCF ils abort suppression wanted? 

BNE 13* i Br if yes 

BIC #*SCCA, LSW5(R1 ) /Clear abort-suppression flag 

13*: BIT #AF$NPW. AFCF ; Suppressing process windowing? 

BNE 14* > Br if yes 

BIC #*NOWIN,LSWll(Rl)i Clear window suspend flag 

Restore command file privileges 

14*: CLR RO ; Init vector index 

8*: MOV (R5),PRIVF0<R0) ; Restore each privilege word 

MOV (R5)+,PRIVC0<R0)j Reset current privilege too 

ADD #2i RO /Increment index 

CMP RO, #PVNPWi^2 /Done all? 

BLO 8* ; Loop if more 

Restore buffer pointer information 



€ 



TSTTY 
CFPOP 



TSX Terminal x/0 rovti MACRO V05. 04 
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115 
116 
117 
IIB 
119 
120 
121 
122 
123 
124 
125 
126 
127 
12S 
129 
130 
131 
132 
133 
134 
135 

1 3a 

137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 



010534 
010536 
010542 



010546 
010564 
010570 



010576 



010636 
010642 



010646 
010654 
010656 
010662 
010670 
010672 
010676 
010702 
010704 
010706 
010710 
010712 



012500 
004737 
012537 



062705 
052761 



010537 
105337 



032761 
001410 
013705 
132765 
001402 
004737 
1 1 2637 
012605 
012604 
012603 
012601 
000207 



010042' 
OOOOOOG 



MOV <R5)+, RO 

CALL CFSTRT 

MOV <R5)+, CFBLK 

Reopen the command file 



POINTER INTO BUFFER 

Reset command file pointer 

CURRENT BLOCK NUMBER 



000012 

OOOOOOG OOOOOOG 



. REOPEN #CFARG, #CFCHAN, R5 ; REOPEN COMMAND FILE 
ADD #10. , R5 i POP SAVE STATUS INFO 

BIS #*CFOPN, LSW4(R1>jSAY COMMAND FILE CHANNEL 

Reread current buffer from file 

. READW #CFARG, #CFCHAN, #CFBUF, #256. , CFBLK 



IS OPEN 



Finished restoring file 



OOOOOOG 
OOOOOOG 



MOV 
DECB 



R5, CFSP 
CFNEST 



i SAVE UPDATED STACK POINTER 
; SAY ONE LESS FILE ON STACK 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
000052 



If lije just reached the end of a command file created to hold 
an expanded IND command end KMON is trying to read another 
command* call STOP to force KMON to go back to IND to get the 
next command before continuing on with an outer level 
command file. 

BIT #*INKMN, LSW4(Rl)i IS KMON RUNNING? 

BEQ 9* iBR IF NOT 

MOV CXTRMN, R5 i GET ADDRESS OF SIMULATED RMON DATA 

BITB #IN*ACT, R*INST<R5); IS IND ACTIVE? 

BEQ 9* > BR IF NOT 

CALL STOP ; REENTER KMON TO FORCE REENTRY OF IND 

9$: MOVB <SP)+, ©#52 j RESTORE I/O ERROR CELL 

MOV <SP)+>R5 

MOV (SP)+, R4 

MOV <SP)+, R3 

MOV (SP)+, Rl 
RETURN 



TSTTY — TSX Terminal 1/0 routi MACRO V05. 04 
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1 

2 








3 








4 








5 








6 








7 








a 








9 


010714 


010046 




10 








11 








12 








13 


010716 


042700 


177400 


14 


010722 


120027 


000003 


15 


010726 


001403 




16 


010730 


1 20027 


000032 


17 


010734 


001007 




IS 


010736 


112700 


000136 


19 


010742 


004737 


011012' 


20 


010746 


011600 




21 


010750 


062700 


000100 


22 


010754 


004737 


011012' 


23 








24 








25 








26 


010760 


012600 




27 


010762 


000207 




28 








29 








30 








31 








32 








33 


010764 


010046 




34 


010766 


112700 


OOOOOOG 


35 


010772 


004737 


011012' 


36 


010776 


112700 


OOOOOOG 


37 


011002 


004737 


011012' 


38 


011006 


012600 




39 


011010 


000207 





. SBTTL LQGCHR — Write character to log file 

i LOGCHR is called to write a character to the log file. 

/ Control characters are converted into "character sequences. 

> Inputs: 

i RO = Character to be written to log. 

LOGCHR: MOV RO, -(SP) 

i See if this is a control character 



; Strip character down to 8 bits 

; Is character control-C? 

i Br if yes 

j Is character control-Z? 

> Br if not 

;Log "•^" 



1$: 



>*: 



BIC 


#•"•0377, RO 


CMPB 


RO, #3 


BEQ 


1* 


CMPB 


RO, #32 


BNE 


2* 


MOVB 


#'-\R0 


CALL 


LOGCHl 


MOV 


(SP),RO 


ADD 


#100, RO 


CALL 


LOGCHl 


Finished 




MOV 


(SP)+, RO 


RETURN 





; Get back original character 
i Convert to printing character 
i Log the character 



i LOGCR is called to send a carriage-return and line-feed sequence 
i to the log file. 



LOGCR: MOV 
MOVB 
CALL 
MOVB 
CALL 
MOV 
RETURN 



RO, -<SP) 
#CR, RO 
LOGCHl 
#LF, RO 
LOGCHl 
<SP)+, RO 



Log carriage-return 
Log line-feed 



TSTTY — TSX Terminal I 


/ r o u t i 


LOGCHR — Write 

:l 
2 
3 


charact 


er to lo 






4 






5 






6 






7 






8 






9 011012 


010246 




10 






11 






12 






13 011014 


032737 


OOOOOOG 


14 011022 


001453 




15 






16 






17 






18 011024 


013702 


OOOOOOG 


19 011030 


001450 




20 011032 


020227 


OOOOOOG 


21 011036 


103442 




22 






23 






24 






25 011040 


012702 


OOOOOOG 


26 011044 


010046 




27 011046 


113746 


000052 


28 011052 






29 011110 


103010 




30 011112 


012705 


177753 


31 011116 


013704 


OOOOOOG 


32 011122 


005037 


OOOOOOG 


33 011126 


000137 


OOOOOOG 


34 011132 


005237 


OOOOOOG 


35 011136 


112637 


000052 


36 011142 


012600 




37 






30 






39 






40 011144 


1 1 0022 




41 011146 


010237 


OOOOOOG 


42 






43 






44 






45 011152 


012602 




46 011154 


000207 
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LOGCHl is called to move a character to the log buffer. 
No tests or conversions are performed on the character. 
No logging is done if echo suppression is in effect. 

Inputs: 
RO = Character to be written. 

LOGCHl: MOV R2, -<SP) 

Check to see if log file output has been suspended <NOWRITE option) 



OOOOOOG 



BIT #LF$WRT, LOGFLG 
BEQ 9* 



; Has log file been suspended? 

J Br if yes 



Get current buffer pointer and make sure buffer is not full 



MOV LOOPTR, R2 

BEQ 9« 

CMP R2, #LOGEND 

BLO 1* 

Log file buffer is full. 



2*: 



MOV 


#LOGBUF, R2 


MOV 


RO, -(SP) 


MOVB 


@#52, -(SP) 


. WRITW 


#CFARG, #L0 


BCC 


2« 


MOV 


#-25, R5 


MOV 


EMTADR, R4 


CLR 


LOGPTR 


JMP 


ABORT 


INC 


LOGBLK 


MOVB 


(SP)+, @#52 


MOV 


(SP)+, RO 



i Get current log file buffer pointer 
; Br if not doing logging 
i Is buffer full?' 
; Br if not 

Write it to the log file. 

i Point to front of buffer 

; Save job's error cell 
iN, R2> #256. , LOGBLK iWrite block to log file 
i Br if no write error 

; Abort job if error writing to log file 
; Get address of EMT 

; Say we have stopped using log file 
; Abort the job 

>Advance log file block number 
i Restore error cell 



Move character to log buffer 



1*: 



9*: 



MOVB 


RO, (R2) + 


MOV 


R2, LOGPTR 


-inished 




MOV 


( SP ) +, R2 


RETURN 





; Move char to log file buffer 
; Save new buffer pointer 



TSTTY - 
ILWAIT 
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— Wait for activation char from terminal 



1 
2 
3 
4 
5 
6 

7 01 

8 01 

9 01 
10 01 
11 

12 
13 
14 

15 01 

16 01 

17 01 

18 01 

19 01 
20 

21 
22 
23 
24 
25 
26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01 



1156 
1164 
1166 
1174 



1200 
1206 

1210 
1216 



1234 
1240 
1246 
1254 
1260 
1266 
1272 
1274 
1302 
1304 
1312 
1320 
1322 
1326 
1332 
1334 
1 336 
1344 



032761 
001405 
052761 
004737 



032761 
001410 
042761 
052761 
005237 



004737 
042761 
042761 
004737 

005761 
001021 
032761 
001006 
013761 
013761 
010046 
012700 
004737 
012600 
000747 

000207 



. SBTTL ILWAIT — Wait for activation char from terminal 

ILWAIT WAITS UNTIL AN ACTIVATION CHARACTER IS RECEIVED 
FOR CURRENT USER. ALL REGISTERS ARE PRESERVED. 
WHEN CALLED Rl MUST CONTAIN THE USER INDEX #. 



i 

i 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



ILWAIT: BIT 
BEQ 
BIS 
CALL 



#*DETCH, LSW(Rl) 

15* 

#*DISCN, LSW(Rl) 

STOP 



I-S THIS A DETACHED JOB? 

BR IF NOT 

FORCE JOB LOGOFF 

HALT DETACHED JOBS THAT WANT TERMINAL INPUT 



OOOOOOG OOOOOOG 15$: 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



If me previously stopped input from silo buffer. Restart it nou* 

if we are about to run out of characters. 

BIT #*XST0P,LSW6<Rl)iDID WE SUSPEND TRANSMISSION TO US? 

BEQ 11* ; BR IF NOT 

BIC #*XSTOP, LSW6<Rl)i RESTART INPUT 

BIS #*NDICP, LSW10<R1 )i Say line needs input character servicing 

INC NEDCDI ; Say input processing needed 



011230 004737 011346' 



.: If we are in deferred echo mode^ echo any pending 
J Characters on last line. 

11*: CALL DFRREL i Release deferred echo mode 

Suspend user till activation character received. 



017466' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



13*: 



J*: 



1*: 



CALL 

BIC 

BIC 

CALL 

DISABL 

TST 

BNE 

BIT 

BNE 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

BR 

ENABL 

RETURN 



; SIGNAL VIRTUAL LINE WAIT CONDITION 

; ALLOW INPUT TO BE ACCEPTED FOR LINE 

i Say we are no longer executing startup file 

i SEE IF JOB HAS BEEN ABORTED 

; #« DISABLE «•« 

i GOT ANY ACTIVATION CHARS YET? 

i BR IF YES 
liDoes user want non— interactive execution? 

; Br if yes 

VINTI0,LHIPCT<R1); RESET INTERACTIVE I/O LIMIT FOR JOB 
VQUANl,LITIME(Rl)i RESET INTERACTIVE CPU TIME LIMIT 
RO, -<SP) 

#S*INWT, RO ; GET WAITING-FOR-INPUT STATE 

QHDSPN ; SUSPEND JOB AND WAIT FOR ACTIVATION *ENABLE# 

(SP)+, RO 
13* ;NOW CHECK AGAIN 

} ** ENABLE ** 



SIGWAT 

#*NOIN, LSW3<R1) 
#*SUCF, LSW9\R1.> 
CHKABT 

LACTIV(Rl) 

1* 

#«NOINT> LSW7<R1). 

5* 



TSTTY — 
DFRREL - 

1 



TSX Terminal I/O routi MACRO V05. 04 
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SBTTL DFRREL — Release deferred echo mode 



3 










4 










5 










6 










7 










S 










9 


011346 


010246 






10 


011350 


010346 






11 
12 
13 


011352 


010446 














14 










15 


011354 








16 


011362 


032761 


OOOOOOG 


OOOOOOG 


17 


011370 


001460 






18 


011372 


005761 


OOOOOOG 




19 


011376 


001055 






20 

21 
22 


011400 
















23 










24 


011406 


042761 


OOOOOOG 


OOOOOOG 


25 


011414 


052761 


OOOOOOG 


OOOOOOG 


26 


011422 


116161 


OOOOOOG 


OOOOOOG 


27 


011430 


005004 






28 


011432 


005003 






29 


011434 


016102 


OOOOOOG 




30 










31 










32 










33 


011440 


020361 


OOOOOOG 




34 


011444 


103027 






35 


011446 


004737 


016312' 




36 


011452 


005704 






37 


011454 


001015 






38 


011456 


120027 


OOOOOOG 




39 


011462 


001006 






40 


011464 


032761 


OOOOOOG 


OOOOOOG 


41 


011472 


00 1 402 






42 


011474 


005204 






43 


011476 


000410 






44 


011500 


004737 


017414' 




45 


011504 


004737 


007030 ' 




46 


011510 


OOSOO-'I 






47 


011512 


032700 


OOOOOOG 




4S 


011516 


001005 






49 


011520 


005203 






50 


011522 


000746 






51 










52 










53 










54 


011524 


042761 


OOOOOOG 


OOOOOOG 


55 










56 










57 











DFRREL is called to release deferred echo mode and to echo any 
pending deferred characters. 



I n p u t s : 
Rl = v-lob index number 



DFRREL: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4> -<SP) 



See if we are currently doing deferred echoing 



DISABL 




BIT 


#«D0DFR,LSW3<R1) 


BEQ 


6* 


TST 


LACTIV(Ri) 


BNE 


6* 


ENABL 





**• DISABLE INTERRUPTS ^*# 

ARE WE IN DEFERRED ECHO MODE? 

BRANCH IF NOT 

ARE THERE ANY PENDING ACTIVATION CHARS? 

BR IF YES — DON'T ECHO IF PENDING ACTIV 

«« ENABLE INTERRUPTS ** 



We are in deferred echo mode 



5*; 



BIC #*GCEC0,LSW3<R1); RESET GETCHR ECHOING 

BIS #«1STCH, LSW3(Rl)iSAY WE'VE GOT 1ST CHAR 

MOVB LC0L<R1), LINCUR<Rl)i SAVE CURSOR POSITION 

CLR R4 ;R4 IS FLAG FOR ESC SEQ CHARS 

CLR R3 

MOV LINPNT<R1),R2 ; POINT TO START OF PENDING CHARS 

Begin loop to echo all pending characters 

i ECHOED ALL PENDING? 
; BRANCH IF FINISHED 

i GET NEXT CHAR FROM TT INPUT BUFFER 
; IS THIS CHAR PART OF ESC SEQ? 
; BR IF YES 

i FLAG THAT NEXT CHAR PART OF ESC SEQUENCE? 
i BR IF NOT 
#*VTESCj LSW5<R1 )> Are we activating on escape sequences? 

; Br if not — Treat ESCFLG like normal char 
i SET ESC SEQ FLAG 

9$: CALL CVTLC i CONVERT LOWER CASE TO UPPER CASE 

ECHO IT 
8*: CLR R4 > CLEAR ESC SEQ FLAG 

IS THIS AN ACTIVATION CHAR? 

BRANCH IF YES 
10*: INC R3 ; COUNT CHARS ECHOED 



Release deferred echo mode 
4*: BIC #*D0DFR,LSW3<Rl)i BEGIN IMMEDIATE CHAR ECHOING 

Finished 



CMP 


R3, LINCNT<R1) 


BHIS 


4* 


CALL 


FETCHR 


TST 


R4 


BNE 


8$ 


CMPB 


RO, #ESCFLG 


BNE 


9* 


BIT 


#«VTESC, LSW5< 


BEQ 


9* 


INC 


R4 


BR 


10* 


CALL 


CVTLC 


CALL 


GCECHO 


CLR 


R4 


BIT 


#ACFLAG, RO 


BNE- 


6* 


INC 


R3 


BR 


5* 
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58 
59 
60 
61 
62 



011532 
011540 
011542 
011544 
011546 



h^: 



012604 
012603 
012602 

000207 



ENABL 

MOV 

MOV 

MOV 

RETURN 



; ** ENABLE INTERRUPTS ** 



<SP)+. R4 
<:SP)+, R3 
<SP)+, R2 
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1 
2 
3 
4 
5 
6> 
7 

a 

9 
10 
11 
12 
13 
14 

15 01 

16 01 

17 01 
IS 

19 
20 
21 



23 
24 
25 
26 
27 



01 
01 



01 
01 



1550 
1552 
1554 



1556 
1564 



1566 
1572 
1574 



010146 
010546 
010401 



032764 
001007 



004777 
103404 
010005 



. SBTTL 

. SI3TTL #■»• Fork Level Input Character Processing ** 

. SBTTL TTINCP — Process received input characters 

TTINCP is called at fork level after each received character 
has been stored in the high speed input ring buffer. 
The function of TTINCP is to remove characters from the 
high speed input ring buffer and perform the TSX-Plus 
character processing which luill eventually cause the character 
to be stored in the input ring buffer for the line. 

Inputs: 
R4 ~ Line index number 



TTINCP: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R5, -(SP) 
R4, Rl 



OOOOOOG 0000000 5*: 



OOOOOOG 



28 01 

29 
30 

'3 1 

32 011576 004737 011612' 

33 

34 

35 

36 

37 011602 000765 

38 

39 

40 

41 

42 01 

43 01 

44 01 



; Carry line index number in Rl too 
See if TT input ring buffer is full 

BIT #*XSTOP. LSW6<R4); Has input been suspended due to buffer full 

BNE 9* i Br if yes 

Get next character from input silo 

i Get next character from input silo 
> Br if no characters in silo 
;Put character in R5 for GOTCHR 

Now call main routine to process a character for this line 

CALL GOTCHR ; Process a character for this line 

Finished processing a character. 

Go back and see if there are any more characters to process. 

BR 5* ; Check for more characters to process 

Finished processing all pending characters for this line. 



CALL 


eSILFET 


BCS 


9* 


MOV 


RO, R5 



1604 
1606 
1610 



01260a 
012601 
000207 



9«: 



MOV 
MOV 
RETURN 



(SP)+, R5 
<SP)+, Rl 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 
25 
2o 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



011612 010146 



011614 
011620 



011622 
011626 
011634 



105737 
001052 



116401 
032761 
001033 



011636 
011642 
011644 
011652 



011654 
011662 
011664 
011672 
011674 
011676 
011702 
011704 
011710 



011712 
011714 
011722 



105737 
001041 
032764 
001035 



032764 
001405 

103007 
000424 
120527 
001403 
120527 
001016 



005000 
000403 



011724 
011730 
011732 
011740 



005764 
001404 
042761 
000402 



A character has been received from a line. 

Check to see if the line is active or needs to be started. 

Inputs: 
R4 = Physical line index number. 
R5 ••= Received character. 

GOTCHR: MOV R1,~(SP) 

.Ignore the character if system initialization is not yet complete 



0000000 



TSTB 

BME 



INITFLG 
9* 



; Is system initialization finished yet? 

i Br if not 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



See if this line has been initialized yet 

MOVB LNMAP<R4),R1 ; Get virtual line index number 
BIT #*DILUP, LSW<R1) >Has line been started yet? 
BNE 1* ;Br if yes 

Line has not been initialized yet. 
See if we should start it now. 

TSTB STPFLG > Is a system shutdown in progress? 

BNE 9* ; Br if yes — Don't start any lines 

BIT #*DEAD, LSW3<R4) ;Is this line marked as dead? 

BNE 9* iBr if yes 

See if we should do autobaud speed selection for this line 

Is autobaud speed selection wanted? 
Br if not 

Do autobaud speed selection 
Br if we should start the line now 
Do not start the line yet 
3$: CMPB R5, #CR ils character Carriage-return? 

Br if yes 

Is character ctrl~-C? 
Br if not 



BIT 


#*AUTO, ILSW2<R4) 


BEQ 


3« 


OCALL 


AUTSPD 


BCC 


2* 


BR 


9* 


CMPB 


R5, #CR 


BEQ 


2« 


CMPB 


R5, #CTRLC 


BNE 


9* 



Start up a previously inactive line 



?*: 



"LR 


RO 


3CALL 


INITLN 


BR 


5* 



; No secondary start-up command file 
i Initialize the line 



OOOOOOG 
OOOOOOG OOOOOOG 



See if we are ignoring trash characters that may be received after 
the autobaud start-up character. 

LABTIM(R4) ils autobaud masking trash characters? 

4* i Br if not 

#*RBRK>LSW10<Rl)i Clear break-received flag 

9* ;Wait for autobaud mask time to end 

Process an input character for an active line 



1*: 


TST 




BEQ 


5*: 


BIC 




BR 
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58 011742 004737 011752' 

59 

60 

61 

62 011746 012601 

63 011750 000207 



4*: CALL 


PRCHAR 






i 

7*: MOV 


(SP)+,R1 


RETURN 





; Process the character 
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1 
2 
3 
4 
5 
6 
7 

8 011752 010246 

9 011754 010346 
10 011756 010446 
11 

12 
13 

14 011760 016104 0000000 

15 011764 032764 0000000 0000000 

16 011772 001406 

17 011774 004737 017544' 

IS 012000 042764 0000000 OOOOOOG 

19 012006 000551 

20 

21 

22 

23 012010 042705 177400 

24 012014 001546 
25 



OOOOOOG OOOOOOG 



Process a character received by an active line. 



Inputs: 
Rl = viob's virtual line index number. 
R5 - Received character. 



PRCHAR: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP) 
R4, -<3P) 



See if ute received a real break (long space). 

MOV LNPRIM<R1),R4 i Get primary line # 

BIT #«RBRK, LSW10<R4); Did me receive a break? 

BEQ 1* ;Br if not 

CALL SIGBRK ; Signal that we received a break 

BIC #*RBRK,LSW10<R4); Clear break-received flag 

BR PRCEND ; Finished with break character 

Mask character to 8 bits and ignore nulls 



1$: 



BIC #'^C377, R5 
BEQ PRCEND 



;Mask character to 8 bits 
> Ignore null characters 



If debugger is in control, bypass some special character processing 



BIT 

BWE 



28 012016 032761 

29 012024 001051 
30 
31 
32 

33 012026 016102 OOOOOOG 

34 012032 001405 

35 012034 020502 

36 012036 001003 

37 012040 004737 017544' 

38 012044 000532 
39 
40 
41 

42 012046 016102 OOOOOOG 

43 012052 001424 

44 012054 010500 

45 012056 004737 017414' 

46 012062 016103 OOOOOOG 

47 012066 120023 
43 012070 001402 

49 012072 077203 

50 012074 000404 

51 012076 010005 

52 012100 004737 016172' 

53 012104 000512 
54 
55 
56 
57 012106 032761 OOOOOOG OOOOOOG CKHIIN: BIT 



#*DBGMD, LSW6<R1 )i Is debugging program in control? 
CKCW i If yes then bypass some checking 



See if user defined an asynchronous break character 



MOV 


LBRKCH<R1),R2 


BEQ 


CKSPAC 


CMP 


R5, R2 


BNE 


CKSPAC 


CALL 


SIGBRK 


BR 


PRCEND 



iDid user define an asynch break char? 

i Br if not 

i Is this the break character? 

J Br if not 

iTell user that break char was received 



See if this is a user-defined activation character 



CKSPAC: 


MOV 


LNSPAC<R1), R2 




BEQ 


CKVTES 




MOV 


R5, RO 




CALL 


CVTLC 




MOV 


LSPACT<R1),R3 


1$: 


CMPB 


RO, <R3) + 




BEQ 


2$ 




SOB 


R2, 1* 




BR 


CKHIIN 


2*: 


MOV 


RO, R5 




CALL 


STRACT 




BR 


PRCEND 



Get number of user-defined activation chars 

Br if there are none 

Get current character 

Convert to uppei — case if needed 

Get pointer to table of activation chars 

Is this an activation character? 

Br if yes 

Loop if more to check 

This is not a user-defined activation char 

Get converted character to R5 

Store the activation character 



See if we are in high-ef f ic ienty mode 

#*HITTY, LSW4(R1 ); Are we in high-efficiency mode? 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



012114 
012116 
012122 



012124 
012132 
012134 
012140 
012142 
012146 



012150 
012154 
012156 
012164 
012166 
012174 
012202 
012206 
012210 



012234 
012236 
012242 
012244 



012264 



012276 
012302 
012304 
012310 
012312 
012316 
012320 
012324 
012326 



012332 
012334 
012336 
012340 



00 1 403 
004737 
000503 



032761 
001406 
004737 
103403 
004737 
103071 



120537 
001024 
032761 
001414 
042761 
042761 
004737 
103451 
004737 
000446 
052761 
000442 
032761 
001420 
020527 
101415 
042761 
162705 
002425 
020527 



012274 000416 



020527 
101003 
004737 
000410 
120527 
001003 
004737 
000402 
004737 



012604 
012603 
012602 
000207 



015674' 



BEQ 

CALL 

BR 



CKVTES 
STRCHR 



; Br if not 

; Store the character 



PRCEND 
See if this is a VT52 escape-letter sequence 



OOOOOOG 0000000 

017214' 

015202' 



CKVTES: BIT 
BEQ 
CALL 
BCS 
CALL 
BCC 



#*VTESC, LSW5<R1 )i Activate on esc-letter sequence? 

CKCW ; Br if not 

SCACHK i Are uie in single character activ mode? 

CKCW i Br if yes 

CKVTAC i Check for escape-letter sequence 

PRCEND i Br if char was part of escape sequence 



Check for request to switch to a virtual line 



OOOOOOG 
OOOOOOG OOOOOOG 



CKCW: 



OOOOOOG 
OOOOOOG 
017376' 

015656' 

OOOOOOG 

OOOOOOG 

000037 

OOOOOOG 
000060 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



2$: 
1$: 



CMPB 

BNE 

BIT 

BEQ 

BIC 

BIC 

CALL 

BCS 

BR 

BIS 

BR 

BIT 

BEQ 

CMP 

BLOS 

BIC 

SUB 

BLT 

CMP 

BGT 

OCALL 

BR 



R5, WLSCH 

1* 

#*CTRLW>LSW3<R1) 

2* 

#*1ESC, LSW<R1) 

#*CTRLW, LSW3(Ri) 

SCACHR 

PRCEND 

INCHR 



Is this char a request to switch to vir line? 

Br if not 

Was last character also control-W? 

Br if not 

Say last char was not escape 

Say last char not control-W 

See if we are in single-char activation mode 

Br if in single-char activation mode 

Pass control-W to program as normal char 



PRCEND 

#*CTRLW> LSW3<R1 ); Remember last char was control-W 

PRCEND 

Was control-W the last character? 

Br if not 

Is current character a control character? 

Br if yes 

Say control-W is not the last char 

Convert line # digit to binary value 

Br if too small 

Don't exceed max line # allowed 

Br if too large 

Switch to a virtual line 



#*CTRLW, LSW3(R1) 

CKICTL 

R5, #37 

CKICTL 

#*CTRLW, LSW3<R1) 

#'0, R5 

PRCEND 

R5, #MAXSEC 

PRCEND 

DOSWIT 

PRCEND 



€ 



Determine if this is a normal or control character 



000037 

012560' 
OOOOOOG 
014644' 
012342' 



CKICTL: 


CMP 


R5>#37 






BHI 


1* 






CALL 


DOCTRL 






BR 


PRCEND 


lt>: 




CMPB 


R5, #RUBOUT 






BNE 


2* 






CALL 


ICPRUB 






BR 


PRCEND 


2*: 




CALL 


REGCHR 




Finished 




PRC 


:end: 


MOV 


<SP)+, R4 






MOV 


<SP)+, R3 






MOV 


<SP)+, R2 






RETURN 





; Is this a normal or control char? 

i Br if not control character 

; Process a control character 

> Is this a rubout character? 

; Br if not 

; Process rubout character 

i Process a normal character 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL REGCHR — Process normal characters 

Process normal (non-control) characters. 

I n p u t B : 
Rl = Virtual line index number. 
R5 = Current input character. 



012342 010246 
012344 010546 
012346 010500 



012350 032761 OOOOOOG OOOOOOG 
012356 001075 



012360 042761 OOOOOOG OOOOOOG 
012366 042761 OOOOOOG OOOOOOG 



012374 004737 017254' 

012400 103003 

012402 004737 016252' 

012406 000461 



REGCHR: MOV 
HOV 
MOV 



R2. -<SP> 
R5, -(SP) 
R5, RO 



/Copy the character 

Ignore all input while processing logoff command file 

BIT #*LOFCF, LSW9<R1 )i Are we processing a logoff command file? 
BNE 9* } Br if yes — ignore the character 

Say last character was not control-C 

BIC #$1ESC, LSW<R1 ) i Say last char was not escape 

BIC #*1CTLC/ LSW5<R1 ); Say last character was not controi-C 

See if we are in single character activation mode 

; Are we in single-char activation mode or SL? 

;Br if not 

i Store character and activate 



CALL 


SLCHK 


BCC 


6* 


CALL 


STRSNG 


BR 


9* 



See if ODT is in control 



012410 032761 OOOOOOG OOOOOOG 6*: 

012416 001413 

012420 004737 015414' 

012424 103010 

012426 120027 000040 

012432 103402 

012434 004737 017032' 

012440 004737 016252' 4*: 

012444 000442 



BIT #*ODTMD, LSW4(R1); Is ODT activation in effect? 

BEQ 3* ;Br if not 

CALL CHKODT ; Is this an ODT activation char? 

BCC 3* ; Br if not 

CMPB R0>#40 i Is this a control character? 

BLO 4* i Br if yes — Don't echo it 

CALL ECHO ;Echo the character 

CALL STRSNG ; Store character and activate 

BR 9* 



012446 016102 OOOOOOG 

012452 001416 

012454 005302 

012456 020261 OOOOOOG 

012462 101012 

012464 032761 OOOOOOG OOOOOOG 

012472 001006 

012474 004737 017032' 

012500 010005 

012502 004737 016172' 

012506 000421 



Check for activation on input of a certain number of characters 

3*: MOV LAFSIZ<R1)/ R2 ; Was field width activation specified? 

BEQ 1* i Br if not 

DEC R2 ; Is field full yet? 

CMP R2, LINCNT<R1) 

BHI 1* ; Br if not 

BIT #*DBGMD/ LSW6<R1); Is a debugger running? 

BNE 1* iBr if yes 

CALL ECHO iEcho character 

MOV RO, R5 > Save the converted character 

CALL STRACT J Store the activation character 

BR 9* 

See if we need to limit number of characters that can be 
typed into a field 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



012510 016102 0000000 

012514 001414 

012516 026102 OOOOOOG 

012522 103411 

012524 032761 OOOOOOG OOOOOOG 

012532 001005 

012534 012700 OOOOOOG 

012540 004737 017072' 

012544 000402 



012546 004737 015656' 



1$: 



012552 012605 
012554 012602 
012556 000207 



MOV 

BEQ 

CMP 

BLO 

BIT 

BNE 

MOV 

CALL 

BR 



LFWLIM<R1), R2 
2* 

LINCNKRl), R2 
2* 



;If field uiidth limit specified? 

; Br if not 

; Would this character overflow the field? 

; Br if not 



#*DBGMD> LSW6<Ri )i Is debugger in control? 

2* i Br if yes 

#BELL, RO ;Echo bell 

ECH02 

9* i Discard the character 



; Normal character being input 



-2^: CALL 


INCHR 


Finished 




?*: MOV 


<SP>+, R5 


MOV 


(SP)+, R2 


RETURN 





i store and echo the character 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 012560 
11 
12 
13 

14 

15 

16 

17 

18 

19 
20 
21 



SBTTL DOCTRL — Process control characters 



12560 
12564 
12566 
12574 
12576 
12602 



23 
24 
25 
26 
27 
28 
29 
30 

31 

32 

33 
34 
35 
36 

37 
38 
39 
40 
41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



12604 
12606 
12610 
12616 
12620 



12624 
12626 



12634 
12636 
12640 
12642 
12644 
12646 



12652 
12654 
12656 
12660 
12662 
12664 
1 2666 
12670 
12672 



120537 
001016 
032761 
001412 
016100 
001407 



010246 
010002 

012602 
000404 



010500 
006300 
004770 



12632 000207 



012342' 
012342' 
012342' 
013174' 
013524' 
012342' 
012342' 
013574' 
012342' 
012342' 
013070' 
012342' 
012342' 
012734' 
012342' 
013660' 



0000000 

0000000 0000000 
0000000 



DOCTRL is called from the input interrupt character processing when 

lue determine that the character being processed is a control character. 

Inputs: 
Rl ~ Virtual line numben-. 
R5 = Character to process. 

DOCTRL: 

See if this is a request to print the current window 

CMPB R5, VVPWCH ; Request to print screen? 

BNE 1* ;Br if not 

BIT #«PWKEY, LSWlKRDi Is print window control char enabled? 

BEQ 1* i Br if not 

MOV LWIND0(R1 ) . RO J Is windowing enabled for this process? 

BEQ 1* ; Br if not — Treat char like ordinary char 

This is a request to print the current window contents 



2*: 



MOV 


R2, -<SP) 


MOV 


RO, R2 


OCALL 


WIIMPRT 


MOV 


<SP)+, R2 


BR 


9* 



;Oet address of current window control blk 
i Print the window 



This is an ordinary control character 



1*: 



012634' 



MOV 
ASL 
CALL 



R5, RO 

RO 

SCTLRTN<RO) 



; Get the control character 

i Convert to word table index 

iCall appropriate processing routine 



Finished 
9«: RETURN 



Branch table for control character processing routines. 



CTLRTN: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



REGCHR 

REGCHR 

REGCHR 

ICPCTC 

ICPCTD 

REGCHR 

REGCHR 

ICPCTG 

REGCHR 

REGCHR 

ICPLF 

REGCHR 

REGCHR 

ICPCR 

REGCHR 

ICPCTO 



00 - 

01 - 

02 - 

03 - 

04 ~ 

05 - 

06 - 

07 - 

10 - 

11 - 

12 - 

13 - 

14 - 

15 - 

16 - 

17 - 



NUL 

SOH 

STX 

ETX 

EOT 

ENQ 

ACK 

BEL 

Back 

TAB 

Line 

VT 

FF 

Carr 

SO 

SI 



< contro 
( contro 

< contro 
( contro 

< contro 

< contro 

< contro 
space 

< contro 
feed 

( contro 

< contro 
iage re 

< contro 

< contro 



1-A) 
1-B) 
1-C) 
1-D) 
l-E) 
1-F) 
1-G) 

1-1) 

1-K> 
1-L) 
turn 
1-N) 
1-0) 



i 
i 
i 
I 
I 
i 
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012674 


012342' 


59 


012676 


012342' 


60 


012700 


013750' 


61 


012702 


012342' 


62 


012704 


012342' 


63 


012706 


014014' 


64 


012710 


012342' 


65 


012712 


012342' 


66 


012714 


014374' 


67 


012716 


012342' 


68 


012720 


014460' 


69 


012722 


014514' 


70 


012724 


012342' 


71 


012726 


012342' 


72 


012730 


012342' 


73 


012732 


012342' 



day IS 


-Dec-S7 14: 01 Pa 


ge 52- 


1 






WORD 


REGCHR 


, 20 - 


DLE 


i control- 


~P> 


WORD 


REOCHR 


, 21 - 


DCl 


(control- 


-Q) 


WORD 


ICPCTR 


22 - 


DC 2 


(control- 


-R) 


WORD 


REGCHR 


23 - 


DC 3 


< control- 


-S) 


WORD 


REGCHR 


24 - 


DC 4 


(control- 


~T) 


WORD 


ICPCTU 


25 - 


NAK 


(control- 


-U) 


WORD 


REGCHR 


26 - 


SYN 


(control- 


-V) 


WORD 


REGCHR 


27 "• 


ETB 


( control- 


-W) 


WORD 


ICPCTX 


30 - 


CAN 


( control- 


-X) 


WORD 


REGCHR 


31 - 


EM 


i control- 


-Y) 


WORD 


ICPCTZ 


32 ~ 


SUB 


< control- 


-Z) 


WORD 


ICPESC 


33 - 


ESC 






WORD 


REGCHR 


34 - 


FS 






WORD 


REGCHR 


35 - 


GS 






WORD 


REGCHR 


36 - 


RS 






WORD 


REGCHR 


37 - 


US 







TSTTY - 
ICPCR 

1 
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3 
4 
5 
6 
7 

a 

9 012734 010546 
10 
11 
12 

13 0] 

14 0] 

15 o: 

16 0: 



17 
IS 
19 
20 

22 

23 

24 

25 

26 

27 

28 
29 
30 
31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
41 
42 
43 

44 

45 

46 

47 



12736 
12742 
12744 
12750 
12754 



12756 
12764 
12766 
12770 
12774 
13000 
13004 



13006 
13012 
13016 
13024 
13026 
13034 
13036 
13040 
13044 



13050 
13056 
13064 
13066 



004737 
103005 
004737 
112705 
000433 



032761 
001410 
010500 
004737 
012700 
004737 
000417 



004737 
112705 
032761 
001004 
032761 
001003 
010500 
004737 
004737 



042761 
042761 
012605 
000207 



. SBTTL ICPCR — Carriage-return processing 

Process Carriage-return character. 

Inputs: 
Rl -- Virtual line index number. 
R5 = Current input character. 

ICPCR: MOV R5, -<SP) 

See if me are in single-character activation mode 



017254' 

016172' 
0000000 



CALL 


SLCHK 


BCC 


1* 


CALL 


STRACT 


MOVE 


#LF, R5 


BR 


3* 



; Are we in single-char activation mode? 

i Br if not 

; Pass carriage return to program 

j and folloii) with line feed 



We are not in single -character activation mode. 
See if ODT is running. 



0000000 OOOOOOG 1$: 



017032' 
0000000 
017036' 



BIT 


#*ODTMD, LSW4<R1 


BEQ 


4* 


MOV 


R5, RO 


CALL 


ECHO 


MOV 


#LF, RO 


CALL 


ECHOl 


BR 


3* 



Is ODT in control? 

Br if not 

Get the CR character 

Echo CR 

Get LF character 

Echo LF 

Store CR as activation character 



We are not in ODT mode 



015656' 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



017036' 
016172' 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



4*; CALL 
MOVE 
BIT 
BNE 
BIT 
BNE 
MOV 
CALL 
CALL 

Finished 

BIC 
BIC 
MOV 
RETURN 



2*: 
3*: 

f 

9*: 



INCHR ; Store and echo CR 

#LF, R5 ; We will follow CR with LF 

#*DBGMDj LSW6<R1 )i Is a debug program running?' 

2* ; Br if yes 

#*NOLFi LSW6<R1 ) ; Are we suppressing LF echoing after CR? 

3* j Br i f yes 

R5> RO ;Get character to echo 

ECHOl ;Echo line-feed 

STRACT ; Store activation character 



#*1CTLC> LSW5<Rl)i Say last character was not control-C 
#*lESCi LSW<R1 ) i Say last char was not escape 
<SP)+, R5 



f 
I 
I 
I 

I 
I 

€ 

I 

< 
C 
< 
i 

i 
i 
I 
i 
I 
€ 

i 



TSTTY - 
ICt'LF - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 
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013070 010546 
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. SBTTL ICPLF • Line-feed processing 

ProcesE. Line-feed input character. 

Inputs: 
Rl -- Virtual line index number. 
R5 = Current input character. 

ICPLF: MOV R5, -<SP) 

If we are in "paper-tape" mode> ignore line-feed characters. 



13072 
13100 



13102 
13106 



032761 OOOOOOG OOOOOOG 
001025 



004737 017376' 
103422 



BIT #*TAPE, LSW2<R1) ; Are me in paper-tape mode? 
BNE 9* i Br if yes 

See if we are in single-character activation mode 



CALL 
BCS 



SCACHH 
9* 



; See if we are in single-char activation mode 
i Br if yes 



29 

30 

31 
32 
33 
34 

35 

36 
37 
38 
39 

40 

41 

42 

43 



13110 
13116 
13120 
13124 
13130 
13132 
13136 
13142 



13144 
13150 



13154 
13162 
13170 
13172 



032761 
001412 
1 1 2700 
004737 
1 1 0500 
004737 
004737 
000404 



1 1 2705 
004737 



042761 
042761 
012605 
000207 



OOOOOOG OOOOOOG 

OOOOOOG 
017032' 

017036' 
016172' 



We are not in single-character activation mode. 
See if we are in DDT mode. 



#*ODTMD, LSW4(R1 ); Is ODT in control? 

; Br if not 
;Echo carriage return 



Get line feed character 

Echo line-feed 

Store line feed and activate 



Treat line-feed exactly like carriage-return. 



BIT 


#*ODTM 


BEQ 


2* 


MOVB 


#CR, RO 


CALL 


ECHO 


MOVB 


R5, RO 


CALL 


ECHO! 


CALL 


STRACT 


BR 


9* 



OOOOOOG 
012734' 



OOOOOOG 
OOOOOOG 



2*: 



OOOOOOG 9$: 
OOOOOOG 



MOVB 
CALL 

F i n i s h e d 

BIC 
BIC 
MOV 
RETURN 



#CR, R5 
ICPCR 



;Get CR character 

j Process the carriage-return 






#*1CTLC. LSW5<R1 ); Say last character was not control-C 
#*1ESC» LSW(R1 ) > Say last char was not escape 
(SP)+, R5 



I 
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2 










3 
4 
5 
6 
7 










8 










9 


013174 


010246 






10 


013176 


010446 






11 










12 










13 










14 


013200 


032761 


0000000 


OOOOOOG 


15 


013206 


001021 






16 










17 










IS 










19 


013210 


052761 


OOOOOOG 


OOOOOOG 


20 


013216 


042761 


0000000 


OOOOOOG 


21 


013224 


042761 


OOOOOOG 


OOOOOOG 


22 


013232 


004737 


017376' 




23 


013236 


103527 






24 


013240 


004737 


017110' 




25 


013244 


004737 


016172' 




26 


013250 


000522 






27 










28 










29 










30 


013252 


032761 


OOOOOOC 


OOOOOOG J 


31 


013260 


001356 






32 


013262 


032761 


OOOOOOG 


OOOOOOG 


33 


013270 


001352 






34 


013272 


032761 


OOOOOOG 


OOOOOOG 


35 


013300 


001346 






36 


013302 


032761 


OOOOOOG 


OOOOOOG 


37 


013310 


001342 






38 


013312 


016102 


OOOOOOG 




39 


013316 


001412 






40 


013320 


032761 


OOOOOOG 


OOOOOOG 


41 
42 
43 


013326 


001006 














44 










45 


013330 


052761 


OOOOOOG 


OOOOOOG 


46 


013336 


105237 


OOOOOOG 




47 


013342 


000725 






48 










49 










50 










51 


013344 


042761 


OOOOOOC 


OOOOOOG : 


52 


013352 


016161 


OOOOOOG 


OOOOOOG 


53 


013360 


016161 


OOOOOOG 


OOOOOOG 


54 


013366 


005061 


OOOOOOG 




55 


013372 


016161 


OOOOOOG 


OOOOOOG 


56 


013400 


016161 


OOOOOOG 


OOOOOOG 


57 


013406 


016161 


OOOOOOG 


OOOOOOG 



. SBTTL ICPCTC -— Control-C processing 

Process a control-C input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTC: MOV 

MOV 



R2, -(SP) 
R4, -<SP) 



Determine if we have received 2 consecutive control-C characters. 



BIT 
BNE 



#*1CTLC, LSW5(R1); Was last character control-C? 



?* 



; Br if yes 



This is 1st control-C 



7*: 



BIS #*1CTLC. LSW5(Rl)i Remember last char was control-C 

BIC #*1ESC, LSW<R1 ) ; Say last char was not escape 

BIC #*RTCS* LSW9<R1 > j Say ute are not receiving control sequence 

CALL SCACHR ; See if we are in single-char activation mode 

BCS 9* J Br if yes 

CALL ECOCTL iEcho "'-C" 

CALL STRACT ; Store control-C as activation char 

BR 9* 

We received two consecutive controi-C characters 



2$: 



BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
MOV 
BEQ 
BIT 
BNE 



#<$SUCFi$LOFCF>, LSW9<Rl)i Are we doing logon/logoff processing? 



7* 

#*SCCA, LSW5<R1) 

7* 

#*NOIN, LSW3<R1) 

7* 

#*RFRSH, LSW4(R1) 

7* 

LSCCA<R1), R2 

3* 

#*DBGMD>LSW6(R1) 

3* 



Br if yes — don't allow ctrl-C abort here 

Suppressing control-C aborts for program? 

Br if yes 

Special no-input flag set? 

Br if yes 

Is a window refresh being done now? 

Don't allow abort during refresh 

Did user do . SCCA EMT? 

Br if not 

Is debugger in control? 

Br if yes — ignore .SCCA 



User did a . SCCA 



Set flag to remember to tell him about ctrl-C's 



BIS #*SETCC>LSW4(R1); Remember to tell him later 

INCB DOSCHD i Request a job scheduler cycle 

BR 7* 

User did not do a .SCCA so abort him 

3$: BIC #<LCBITiSPCTTY>, LJSW<R1) ; Clean out JSW 

MOV LINNXT<R1), LINPNT<R1) ;Kill all input 

MOV LINNXT<R1),LSTACT(R1) 

CLR LINCNT<R1) 

MOV LINSIZ<R1),LINSPC<R1) 

MOV LOTSIKRl), LOTSPC(Rl) ;Kill all output 

MOV L0TNXT<R1),L0TPNT(R1) 
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59 01 

59 01 

60 01 

61 01 

62 01 

63 01 

64 01 

65 01 

66 01 

67 01 

68 01 

69 01 

70 01 
71 

72 
73 

74 01 

75 01 

76 01 



3414 
3420 
3424 
3432 
3440 
3444 
3452 
3456 
3464 
3472 
3500 
3504 
3510 



3516 
3520 



00 5061 
005061 
042761 
042761 
016104 
042764 
004737 
052761 
052761 
042761 
004737 
005061 
042761 



012604 
012602 
000207 



ooooooe 

0000000 
OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 
017110' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



CLR 

CLR 

BIG 

BIC 

MOV 

BIC 

CALL 

BIS 

BIS 

BIC 

CALL 

CLR 

BIC 

F i Ti i B h B d 



9*: 



MOV 
MOV 
RETURN 



LFWLIM<R1) 
LAFSIZ<R1) 



No 
No 



field 
field 



width 
width 



1 imi t 

ac tivation 



#*SLINI, LSW7(R1); Say SL must reinitialize for next line 
#<*DODFR ! *GCECO: 



LSW3(R1) iReset deferred echoing 
Get primary job number 

control-S output suspension 
Echo "'-C" 

Set job abort flag 
#*CFKIL, LSW6<R1); Set flag to abort all open 
#*SUSPN, LSW(Rl) ; Clear job -suspended flag 

Force execution of the job 
Say no chars received yet 



LNPRIM<R1), R4 

#*CTRLS. LSW3<R4>; Reset 

ECOCTL 

#*CTRLC,LSW<R1) 



command files 



FORCEX 
LACTIV(Rl) 
#*1STCH, LSW3<R1) 



<SP)+, R4 
<;SP)+, R2 
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SBTTL ICPCTD 



Coritrol-D processing 



3 








4 








5 








6 








7 








S 








9 








10 


013524 


032761 


0000000 


11 


013532 


001405 




12 


013534 


032761 


OOOOOOG 


13 


013542 


0014U 




14 


013544 


000404 




15 


013546 


032761 


OOOOOOC 


16 


013554 


001404 




17 


013556 


052761 


OOOOOOG 


18 


013564 


000402 




19 








20 








21 








22 


013566 


004737 


012342' 


23 








24 








25 








26 


013572 


000207 





Process a Control-D character. 

This forces a debugger breakpoint if uje are running under the debugger. 



Inputs: 
Rl = Virtual line index number. 
R5 " Current input character. 



OOOOOOG ICPCTD: BIT 

BEQ 

OOOOOOG BIT 

BEO 
BR 
BIT 
BE« 
BIS 
BR 



OOOOOOG 2*: 
OOOOOOG 3*: 



#*INKMN, LSW4<R1 ); Are uie running in TSKMON now? 

2* ; Br if not 

#*DBKMN, LSW9(R1) J Should we debug TSKMON? 

1* .: Br if not 

3* i Yes, go force breakpoint 

#*DEBUG!*CTRLD, LSW9<R1); Is job running with the debugger? 

1$ J Br if not 

#*DBGBK.. LSW9<R1); Set flag to force debug breakpoint 

9* 



We are not running with debugger^ treat Ctrl-D like normal character 
1*: CALL REGCHR i Store as regular character 

Finished 
9$: RETURN 



TSTTY — 
ICPCTG - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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. SBTTL ICPCTG — Control-G processing 

Process a Control-G <BeJl) character. 

Inputs: 
Rl "- Virtual line index number. 
R5 ■" Current input character. 



013574 
013602 
013604 
013612 
013614 
013620 



013622 
013624 
013630 
013634 



032761 
001415 
032761 
001403 
004737 
000410 



010500 
004737 
004737 
000402 



OOOOOOG 

OOOOOOG OOOOOOG 
016252' 



OOOOOOG ICPCTG: BIT 

BEQ 
BIT 
BEQ 
CALL 
BR 



017032' 
016172' 



#SPCTTY> LJSW(R1 ).: Is special character processing wanted? 

2* j Br if not 

#*CHACT, LSW5<R1 ) j Is single character activation wanted? 

1* i Br if not 

STRSNG ; Store the character 

9* 



Special~TTY mode is set but not single character activation 

1*: MOV R5, RO ; Get char to echo 

iEcho a bell 
/Store and activate 



MOV 


R5, RO 


CALL 


ECHO 


CALL 


STRACT 


BR 


9* 



23 
24 
25 
26 
27 
28 
29 
30 
31 



013636 004737 012342' 



i Normal character processing 
2H: CALL REGCHR 
i Finished 



; Treat as regular character 



013642 
013650 
013656 



042761 
042761 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 9*: 
OOOOOOG 



BIC #*1CTLC, LSW5(Rl)i Say last character was not control-C 
BIG #*1ESC, LSW<R1 ) ; Say last char was not escape 
RETURN 



TSTTY — 
ICPCTO - 

1 
2 

n 

4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



TSX Terminal I/O routi 
■ Control-0 pT'ocessing 



013660 
013666 



013670 
013676 
013704 
013710 
013716 
013724 
013726 
013732 



013734 
013742 



032761 
001022 



016161 
016161 
004737 
052761 
026127 
001010 
004737 
00040D 



042761 
004737 



0000000 0000000 
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. SBTTL ICPCTO — Control-O processing 

Process a Control-0 input character. 

Inputs: 
Rl := Virtual line index number. 
R5 = Current input character. 

ICPCTO: BIT #*CTRLO, LSW3(R1 ) » Is output currently suppressed? 
BNE 1* i Br if yes (reenable it) 



OOOOOOG 
OOOOOOG 
017110' 
OOOOOOG 
OOOOOOG 

005744 ' 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



Begin suppressing output 

MOV L0TSIZ(R1).L0TSPC(R1) i Empty output buffer 

MOV LOTNXT<Rl),LOrPNT(Rl) 

CALL ECOCTL iEcho "--^O" 

BIS #*CTRLO.- LSW3<R1 )i Remember output is being suppressed 

CMP LSTATE<R1 ). #S*OTWT ils job waiting for output space? 

BNE 2* iBr if not 

CALL OTREGO j Reactivate the job 

BR 2$ 



Reenable output 



OOOOOOG 
017110' 



OOOOOOG 1$: 



013746 000207 



BIC 
CALL 

Finished 

RETURN 



#*CTRLO» LSW3(Ri )^ Remove output suppression 
ECOCTL iEcho "'-D" 
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3 








4 








5 








6 








7 








8 








9 


013750 


010246 




10 


013752 


004737 


OOOOOOG 


11 


013756 


004737 


017376' 


12 


013762 


103412 




13 








14 








15 








16 


013764 


004737 


017110' 


17 


013770 


016102 


OOOOOOG 


IS 


013774 


004737 


016312' 


19 


014000 


103403 




20 


014002 


004737 


017036' 


21 


014006 


000772 




22 








23 








24 








25 


014010 


012602 




26 


014012 


000207 





. SBTTL ICPCTR — Control-R processing 
Process control-R input character. 



Inputs: 
Ri = Virtual line index number. 
R5 = Current input character. 



ICPCTR: 


MOV 


R2, -(SP) 




CALL 


BRKPT 




CALL 


SCACHR 




I3CS 


9* 



4$: 

1*: 



9*: 



CALL 


ECOCTL 


MOV 


LSTACT(R1),R2 


CALL 


FETCHR 


BCS 


9* 


CALL 


ECHOl 


BR 


1* 


F i n i s h e d 




MOV 


(SP)+, R2 


RETURN 





Call TSEXEC for debugging breakpoint 
Is job in single-char activation mode? 
Br if yes 



Redisplay the current input line 



iEcho "'-R" 

iPoint past last activation char 

; Get next char from TT input buffer 

i Br if no more characters 

/Echo the character 

.: Continue printing line 



c 
i 
I 
i 

c 
i 
I 
I 

i 



TSTTY — TSX Terminal J/0 routi 
ICPCTU — Control-U processing 



1 
2 
3 



5 

6 

7 

8 

9 014014 
10 014016 
11 
12 
13 

14 014020 

15 014026 
16 

17 
18 

19 014034 

20 014040 
21 
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. SBTTL ICPCTU — Control-U processing 

Process a Control-U character. 

1 n p u t B : 
Rl = Virtual line index number. 
R5 = Current input character. 



010246 
010346 



042761 
042761 



004737 
103545 



ICPCTU: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



0000000 
0000000 



017376" 



OOOOOOG 
OOOOOOG 



Remember that last character was not escape or control-C 

BIC #*1CTLC, LBWS(Rl); Last character was not control~C 
BIC #*1ESC, LSW<R1 ) i Say last char was not escape 

Determine if we are in single-character activation mode 



CALL 
DCS 



SCACHR 
27$ 



i See if we are in single-char activation mode 
; Br if yes 



014042 
014050 

014056 



23 
24 
25 
26 
27 
28 
29 

30 014060 

31 014066 
32 

33 
34 

35 014070 

36 014074 
37 

30 

39 

40 014076 
014104 
014106 

43 014112 

44 014116 

45 014122 

46 014126 

47 014130 

48 014132 

49 014140 
014142 
014150 
014152 

53 014154 

54 

55 

56 

57 014156 



042761 OOOOOOG 
032761 OOOOOOG 
001133 



OOOOOOG 
OOOOOOG 



017110' 



41 
42 



50 

51 
52 



032761 
001003 



004737 
000524 



032761 
001523 
116103 
042703 
116102 
042702 
160203 
003506 
126127 
001056 
032761 
001452 
005702 
001005 



1 1 2700 OOOOOOG 



OOOOOOG OOOOOOG 



We are not in sing le-charactr activation mode 

BIC #*RBOUT, LSW3<Rl)i Reset rubout mode 

BIT #*DODFR> LSW3(Rl>i Doing deferred echoing? 

BWE 5* i Br if yes 

Determine if this is a scope type terminal 

BIT #*SCOPE. LSW2<Rl)i Is this a scope terminal? 
BNE 15* i Br if yes 

Echo "'^U" for non-scope terminals 



CALL 
BR 



ECOCTL 
5* 



;Echo "•'■•U" 

; Go delete the characters 



Do line erase for scope terminals 



OOOOOOG OOOOOOG 15*: 

OOOOOOG 
177400 
OOOOOOG 
177400 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



BIT #*1STCH, LSW3<R1); Any characters received yet? 

BEO 27* ; Br if not 

MOVB LC0L(R1),R3 i Get current column position 

BIC #-"-C377, R3 sKill sign extension 

MOVB LINCUR<R1),R2 i Get start of line position 

BIC #'^C377, R2 ;Kiil sign extension 

SUB R2, R3 ;GBt # of columns in field being erased 

BLE 5* jBr if nothing to eras^e 

CMPB LRBFIL<R1)>#3PACE; Is rubout filler char = space? 

BNE 8* ;Br if not 

BIT #VT52 !VT100)VT2007!VT200S! HAZEL, LTRMTP<R1) i Can we line erase? 

BEQ 8* JBr if not 

TST R2 J Are we erasing entire line?" 

BNE 10* ;Br if not 

Going to start of line. Use carriage-return to get there. 

MOVB #CRi RO i Send carriage return to terminal 



TSTTY — 
ICPCTU -•• 



TSX Terminal 1/0 routi 
■ Cantrol -U processing 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



014162 
014166 



014170 
014174 
014200 



014202 
014206 
014212 
014220 
014222 



014232 
014234 
014240 
014244 
014246 
014252 
014254 
014256 
014262 
014264 
014270 
014274 



014276 
014302 
014310 
014312 
014316 
014322 
014326 
014330 
014334 
014340 
014344 



014346 
014352 



014354 
014356 
014360 



004737 
000405 



1 1 2700 
004737 
077303 



012703 
116100 
032760 
001014 
016100 
032700 
001007 
012703 
032700 
001002 
012703 
112300 
001434 
120027 
101402 
105361 
004737 
000766 



116102 
032761 
001402 
1 1 2702 
112700 
004737 
1 1 0200 
004737 
1 1 2700 
004737 
077314 



004737 
103375 



012603 
012602 
000207 



003122' 



0000000 
0000000 

000040 
OOOOOOG 

017036' 

017036' 
0000000 
017036' 



015564 



CALL 
BR 



PUTCH2 
11* 



Not going to start of line. Use backspaces to get to start of field. 



0000000 
017036' 



10$: 
12*: 



MOVE 
CALL 
SOB 



#BKSPAC, RO 
ECHOl 
R3, 12* 



j Get backspace character 

j Send backspace to terminal 

; Send enough to get to start of field 



Use scope control sequence to erase the line 



014362' 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

014371 ' 
OOOOOOG 

014365' 



000037 

OOOOOOG 
003122' 



11*: 



OOOOOOG 



13*: 



14*: 



MOV 


#ERV52, R3 


MOVE 


LNPRIM(Rl), RO 


BIT 


#*V52EM, LSWll 


BNE 


13* 


MOV 


LTRMTP<R1), RO 


BIT 


#VT52, RO 


BNE 


13* 


MOV 


#ERHAZL, R3 


BIT 


#HAZEL, RO 


BNE 


13* 


MOV 


#ERV100, R3 


MOVE 


(R3)+, RO 


BEQ 


5* 


CMPE 


RO, #37 


SLOS 


14* 


DECS 


LCOL(Rl) 


CALL 


PUTCH2 


BR 


13* 



i Assume this is a VT52 terminal 
; Get primary job index number 
>)iAre xiiB emulating a VT52? 

Br if yes 

Get terminal type code 

Is this a VT52 terminal? 

Br if yes 

Assume hazeltine terminal 

Is this a Hazeltine terminal? 

Br if yes 

Assume this is a VTIOO or VT200 

Get next char from control sequence 

Br if end reached 

Is this a control or printing character 

Br if control character 

Correct column counter if sending printing ch 

Send character to terminal 

Continue sending control sequence 



Kill all input characters by sending 
backspace-space-backspace. . . 



OOOOOOG 



0*: 



9*; 



MOVE 

BIT 

BEQ 

MOVE 

MOVE 

CALL 

MOVB 

CALL 

MOVB 

CALL 

SOB 



LRBFIL(R1),R2 i Get rubout-f i 1 1 er character 
#*DBGMD» LSW6<R1 )i Is debugger doing I/O now? 



9* 

# ' , R2 

#BKSPAC, RO 

ECHOl 

R2, RO 

ECHOl 

#BKSPAC, RO 

ECHOl 

R3, 9* 



i Br if not 

; Use blank for debugger rubout 

; Send bac k space 

>Get rubout~f i 1 ler character 

i Send filler character 

; Send bac kspace 



3*: 



; Loop on number of characters to kill 

Now delete characters from the input buffer 

iKill last character in the buffer 
; Loop if more left to kill 



27*: 



CALL 


KILCHR 


BCC 


5* 


Fini Bhed 




MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





Terminal control sequences to erase a line. 
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ICPCTU — Control -U processing 



115 










> 








116 


014362 


0000 


113 


000 


ERV52: 


. BYTE 


ESC, 113,0 


i VT52 


117 


014365 
014370 


0000 
000 


133 


113 


ERVIOO; 


. BYTE 


ESC, 133, 113, 


i VTIOO and VT200 


lis 


014371 


176 


017 


000 


ERHAZL: 


. BYTE 


176, 17, 


i Hazeltine 


119 












. EVEN 







< 
i 
f 
I 
I 
I 
I 
I 
I 
i 
i 

I 

i 
i 
i 
i 
I 
I 
i 



TSTTY — TSX Terminal 1/Q routi 
ICPCTX — ~ Control X prot; ess int) 



:l 
2 
3 
4 
5 
6 
7 
8 
9 





10 

11 

12 

13 

14 
15 
16 
17 

15 

19 

20 

21 



14374 
14402 
14404 
14412 
14414 
14420 



14424 
14430 
14434 



032761 
001415 
032761 
001403 
004737 
000410 



010500 
004737 
004737 
000402 



0000000 
OOOOOOG 
016252' 
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. SBTTL ICPCTX •- Control-X processing 

ProcesB a Control~X character. 

Inputs; 
Rl = Virtual line index number. 
Rb ~ Current input character. 

OOOOOOG ICPCTX: .BIT #SPCTTY. LJSW<R1 )i Is special character processing wanted? 

BEQ 2* J Br if not 

OOOOOOG BIT #*CHACT, LSW5(Rl)i Is single character activation uianted? 

BEQ 1* J Br if not 

CALL STRSNG i Store the character 

BR 9* 

Special-TTY mode is set but not single character activation 



1*: 



017110' 
016172' 



MOV 


R5, RO 


CALL 


ECOCTL 


CALL 


STRACT 


BR 


9* 



J Get char to echo 

jEcho"'^X" 

j Store the character and activate 



23 

24 

25 014436 004737 012342' 

26 

27 

28 

29 014442 042761 OOOOOOG 

30 014450 042761 OOOOOOG 

31 014456 000207 



Normal character processing 

CALL REGCHR 
F" i n i & h e d 



; Treat as regular character 



OOOOOOG 7$: 
OOOOOOG 



BIC #*1C TLC. LSW5(R1 ); Say last character was not control-C 
BIC #*1ESC, LSW<R1) ;Say last char was not escape 
RETURN 



TSTTY — 
ICPCTZ '■ 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



014460 004737 017376' 

014464 103404 

014466 004737 017110' 

014472 004737 016172' 
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- Coritrol--Z processing 

. BBTTL ICPCTZ — Control-Z processing 

Process Control-Z character. 

Inputs: 
Rl = Virtual line index number. 
Rb ~ Current input character. 



ICPCTZ: CALL 
BCS 
CALL 
CALL 



SCACHR 
9$ 

ECOCTL 
STRACT 



j Are ute in single character activation mode? 

j Br if yes 
iEcho "'-Z" 
; Store character and activate 



014476 042761 OOOOOOG OOOOOOG 9$: 
014504 042761 OOOOOOG OOOOOOG 
014512 000207 



Say last character was not escape or controi-C 

BIC #*1CTLC/ LSW5<R1); Say last character was not control-C 
BIC #*1ESC, LSW<R1) iSay last char was not escape 

RETURN 



TSTTY — TSX Terminal I/O routi 
ICPESC — Escape processing 



i 
2 
3 
4 
5 
6 
7 
8 
9 
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. SBTTL ICPESC — Escape processing 

Process an escape character. 

Inputs: 
R.I -- Virtual line index number. 
R& = Current input character. 





10 

11 

12 

13 

14 

15 

16 
17 
18 
19 

20 

21 

22 

23 
24 
25 
26 
27 
23 

29 

30 

31 

32 

33 

34 

35 

36 
37 
38 
39 

40 

41 



14514 
14520 
14522 
14530 
14532 
14540 
14542 
14546 



14550 

14554 
14560 
14564 



004737 
103410 
032761 
001407 
032761 
001412 
004737 
000432 



1 1 2700 
004737 
004737 
000423 



017254" 
OOOOOOG 
OOOOOOG 

016252' 



OOOOOOG 
OOOOOOG 



ICPESC: CALL 
BCS 
BIT 
BEQ 
BIT 
BEO 

4*: CALL 
BR 



SLCHK i See if SL should get escape 

4* i Br if SL wants characters 

ttSPCTTV/ LJSW(R1 ); Is job in special TTY mode? 

1* ; Br if not 

#*CHACT- LSW5<R1 >; Is single char activation enabled? 

2* i Br if not 

STRSNG ; Store and activate 

9* 



000044 

017032' 

015674' 



Escape and not single character activation 

1*: MOVB #'«,R0 iEcho "*" 

CALL ECHO 

; Store escape as non-activation char 



Program is in special-TTY mode but single character activation 
is not enabled. 



MOVB 


#'«, RO 


CALL 


ECHO 


CALL 


STRCHR 


BR 


9* 



14566 
14572 
14576 
14604 
14606 
14612 
14620 
14622 
14626 



14634 
14642 



1 1 2700 
004737 
032761 
001006 
004737 
052761 
000405 
004737 
042761 



042761 
000207 



000044 

017032' 

OOOOOOG 

015674' 
OOOOOOG 

016172' 
OOOOOOG 



?*: 



OOOOOOG 



OOOOOOG 



OOOOOOG 



3*: 



MOVB 

CALL 

BIT 

BME 

CALL 

BIS 

BR 

CALL 

BIC 

Finished 



#'*, RO 

ECHO 

#*1ESC, LSW<R1) 

3* 

STRCHR 

#*1ESC, LSW<R1) 

9* 

STRACT 

#*1ESC, LSW<R1) 



;Echo "*" 

Was last character ESC?" 

Br if yes 

Store the escape 

Remember that last char is escape 

; Store escape and activate 
; Say last char was not escape 



OOOOOOG OOOOOOG 9*: 



BIC 
RETURN 



#*1CTLC, LSW5<R1 )i Say last character was not control-C 



i 
f 

< 

< 
I 

4 
I 
I 
I 

i 
i 
€ 
I 

i 
i 
i 
i 
C 
4 
i 



TSTTY — TSX Terminal I/O routi 
ICPRUB — Rubout proces&ing 



3 
4 
5 
6 
7 
8 

9 014644 
10 014646 
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. SBTTL ICPRUB — Rubout processing 
Process a rubout character. 



Inputs; 
Rl = Virtual line numbt-r. 
R5 = Rubout character. 



11 
12 
13 

14 014650 

15 014656 
16 

17 
18 

19 014664 

20 014670 
21 

24 014672 

25 014700 

26 014702 

27 014710 

28 014712 

29 014720 
30 

31 
32 
33 

34 014722 

35 014730 

36 014732 

37 014736 

38 014742 

39 014750 

40 014754 

41 014756 

42 014762 
43 

44 
45 

46 014764 

47 014770 

48 014772 

49 014776 
50 

51 
52 
53 

54 015000 

55 015004 

56 015010 

57 015014 



010246 
010346 



042761 
042761 



004737 
103541 



032761 
001004 
032761 
001417 
032761 
001021 



ICPRUB: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



0000000 
OOOOOOG 



017376' 



OOOOOOG 
OOOOOOG 



Remember that last character was not control-C 

BIC #*1CTLC,LSW5<R1>; Last character was not control-C 
BIC #*1ESC» LSW<R1 ) i Say last char was not escape 

See if me are in sing le -character activation mode 



BCS 



SCACHR 
2* 



; Are me in single-char activation mode 
; Br if yes 



We are not in single character activation mode. 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 12*: 



BIT #«ECHO, LSW2(R1) ;Is echoing turned on? 

BNE 12* .: Br if yes 

BIT #*DBGMD, LSW6<R1); Is debugger in control? 

BE<3 30* .; Br if not 

BIT #*SCOPE> LSW2<R1 ); Scope type terminal? 

BNE 27* ; Br if yes 



Rubout on non-scope terminal. 
Echo \xxx\ type rubout sequence. 



032761 
001007 
112700 
004737 
052761 
004737 
103507 
004737 
000504 



004737 
103501 
120027 
001044 



OOOOOOG OOOOOOG 



000134 
017036' 
OOOOOOG 
015564' 

017036' 



OOOOOOG 



30*: 



BIT 


#*RBOUT, LSW3<R1) 


BNE 


30* 


MOVE 


#'\,R0 


CALL 


ECHOl 


BIS 


#*RBDUT, LSW3<R1) 


CALL 


KILCHR 


BCS 


2* 


CALL 


ECHOl 


BR 


2* 



Are we already doing rubout sequence? 

Br if yes 

Get backslash to begin rubout sequence 

Echo "\" 

Say we have started rubout sequence 

Delete one character from buffer 

Br if no char to delete 

Echo deleted char 



Do backspace editing for scope type terminals 



015564' 
OOOOOOG 



27*: 



CALL 


KILCHR 


BCS 


2* 


CMPB 


R0> #TAB 


BNE 


10* 



; Delete one character from buffer 

j Br if no character was left to delete 

iDid we delete a tab character? 



116103 OOOOOOG 

042703 177400 

016102 OOOOOOG 

004737 016312' 



3*: 



We just deleted a tab character. 
Do correct backspacing. 

MOVB LINCUR<Ri ),R3 i Position of start of line 

BIC #'-C377, R3 iKill sign extension 

MOV LSTACT<R1), R2 i Start of input string 

CALL FETCHR i Get next char from TT input buffer 



TSTTY — TSX Terminal I/O routi HACRO V05. 04 
ICPRUB — Rubout proc«?BEing 
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58 


015020 


103417 




59 


015022 


1 20027 


0000000 


60 


015026 


001005 




61 


015030 


062703 


000010 


62 


015034 


042703 


000007 


63 


015040 


00076 r> 




64 


015042 


120027 


0000000 


65 


015046 


001002 




66 


015050 


005303 




67 


015052 


000760 




68 


015054 


005203 




69 


015056 


000756 




70 


015060 


010302 




71 


015062 


062702 


000010 


72 


015066 


042702 


000007 


73 


015072 


160302 




74 


015074 


012700 


0000000 


75 


015100 


004737 


017036' 


76 


015104 


077203 




77 


015106 


000432 




78 








79 








80 








81 


015110 


120027 


0000000 


82 


015114 


001005 




S3 


015116 


112700 


0000000 


84 


015122 


004737 


017036' 


85 


015126 


000422 




86 








87 








88 








89 








90 


015130 


1 1 2700 


OOOOOOG 


91 


015134 


004737 


017036' 


92 


015140 


116100 


OOOOOOG 


93 


015144 


032761 


0000000 OOOOOOG 


94 


015152 


001402 




95 


015154 


1 1 2700 


000040 


96 


015160 


004737 


017036' 


97 


015164 


112700 


OOOOOOG 


98 


015170 


004737 


017036' 


99 








100 








101 








102 


015174 


012603 




103 


015176 


012602 




104 


015200 


000207 





7$: 
6$: 



9$: 



BCS 


6* 




CMPB 


RO. 


#TAB 


BiME 


7« 




ADD 


#8. 


, R3 


BIC 


#7, 


R3 


BR 


3* 




CMPB 


RO, 


#BKSPAC 


BNE 


5* 




DEC 


R3 




BR 


3* 




INC 


R3 




BR 


3* 




MOV 


R3, 


R2 


ADD 


#8. 


,R2 


BIC 


#7, 


R2 


SUB 


R3, 


R2 


MOV 


#BKSPAC, RO 


CALL 


ECHOl 


SOB 


R2, 


9* 


BR 


2* 





J Br if nD more characters 

.! Is character a tab?' 

; Br if not 

^Calculate spaces over it 



; Was character backspaceT' 

i Br if not 

iBackup cursor position 

J Advance cursor for normal character 

J Save position in front of last tab 
.:Calc position after tab 

iCalc number of backspace needed 

; Now backspace cursor 

i Backspace over tab columns 



Check for rubout of backspace character 



10*: 



CMPB 


RO, #BKSPAC 


BNE 


11* 


MOVB 


#SPACE, RO 


CALL 


ECHOl 


BR 


2* 



Is deleted character a backspace? 

Br if not 

Output a space to kill the backspace 



Rubout of regular character. 
Echo backspace-space -back space 



11*: 



13* 



>*: 



: MOVB 


#BKSPAC> RO 


CALL 


ECHOl 


MOVB 


LRBFIL(R1),R0 


BIT 


#*DBGMD, LSW6<R1) 


BEQ 


13* 


MOVB 


#' ,R0 


: CALL 


ECHOl 


MOVB 


#BKSPAC> RO 


CALL 


ECHOl 


F i n i B h e d 




MOV 


<SP)+, R3 


MOV 


<SP)+,R2 


RETURN 





j Ec ho bac k space 

Get rubout-f i Her character 

Is a debugger running? 

Br if not 

Use space for debugger rubout 

Echo rubout-filler character 

Notu echo backspace 



€ 
4 



TSTTY •■ 
CKVTAC 



TSX Terminal I/O routi 
- Check for Vf x :< escape- 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



015202 



015202 
015206 
015210 
015216 
015224 
015226 
015232 
015234 
015240 



015242 
015250 



015252 
015260 



1 c:. w D «■« / 

00 1 007 
052761 
052761 
000450 
120527 
00 1 403 
120527 
00 1 004 



052761 
000433 



032761 
001453 



015262 
015266 
015270 
015274 
015276 
015302 
015304 
015312 
015314 
015316 
015322 
1 5324 
015330 



120527 
103424 
120527 
101010 
120527 
001013 
032761 
001407 
000411 
120527 
103406 
120527 
101003 



000033 

OOOOOOG 
OOOOOOG 

000233 

000217 



OOOOOOG 
OOOOOOG 



000101 
000132 
000117 
OOOOOOG OOOOOOG 

000141 
000176 
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•letter activation 

. SBTTL. CKVTAC — Clit-cN for VTxx escape-letter activation 

We BTB activating on V'f:<:< escape-letter sequences. 
See if this is one and we should activate. 

Input ti : 
Fn =~ Virtual line index number. 
R5 =• Current input character. 

Outputs: 
C-fiag cleared ==> Character was totally processed here. 
C -f lag set ==> Character was not processed by us. 

CKVTAC: 

See if this character is ESC. CSI/ or SS3 which starts a terminal 
control sequence. 

Is character ESCT' 
Br if not 

Remember last char was an escape 
Say we are receiving a control sequence 
Char is part of sequence 
1$: CHPB R5, #233 ;l5 character CSI? 

Br if yes 
Is character SS37' 
Br if not 

This character begins a new control sequence 

BIS #*RTCS> LSW9<R1 ) i Say we are receiving a control sequence 
BR 3* ; Go store the character 

See if this character is part of a terminal control sequence 

BIT #*RTCS. LSW9<R1 ) i Are we currently receiving a control seq? 
BEQ 8* ;Br if not 

We are currently receiving a terminal control sequence. 
See if this character terminates the sequence. 

; Is this a upper-case letter? 
> Br if not 

Br if not upper-case letter 
Letter OT-" 
Br if not 

Was last character ESC? 
Br if not 

ESC is equivalent to SS3 
7«: CMPB R5, #141 J Is this a lower-case letter? 

Br if not 

Lower case letter or "^ 
Br if not 



CMPB 


R5, #33 


BNE 


1* 


BIS 


#*1ESC, LSW(Rl) 


BIS 


#*RTCS, LSW9(R1) 


BR 


15* 


CMPB 


R5, #233 


BEQ 


14* 


CMPB 


R5. #217 


l^ME 


2* 



OOOOOOG OOOOOOG 14*: 



OOOOOOG OOOOOOG 2*: 



CMPB 


R5,#'A 


BLO 


3* 


CMPB 


R5, #'Z 


BHI 


7* 


CMPB 


R5, #'0 


BNE 


4* 


BIT 


#*1ESC,LSW<R1) 


BEQ 


4* 


BR 


3* 


CMPB 


R5, #141 


BLO 


3* 


CMPB 


R5, #176 


BHI 


3* 



This character terminates the control sequence 



TSTTY — TSX Terminal 1/0 routi 
CKVTAC ~- Check for VTx:< escape' 
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5332 042761 OOOOOOG OOOOOOG 4*: BIG #*RTCS, LSW9(R1 ) i Say no longer receiving control sequence 

This character is part of control sequence — Pass to program 



58 01 
59 
60 
61 

62 01 

63 01 

64 01 

65 01 

66 01 

67 01 

68 01 

69 01 

70 01 

71 01 

72 01 

73 01 
74 

75 

76 

77 015410 000261 

78 

79 

80 

81 01541; 



5340 
5346 
5350 
5354 
5360 
5362 
5370 
5372 
5376 
5400 
5404 
5406 



042761 
010546 
012705 
004737 
012605 
032761 
001403 
004737 
000402 
004737 
000241 
000401 



OOOOOOG 

OOOOOOG 
015674' 



OOOOOOG 3*: 
15*: 



OOOOOOG OOOOOOG 

015674' 

016172' 



5*: 
6$: 



BIG 

MOV 

MOV 

CALL 

MOV 

BIT 

BEQ 

CALL 

BR 

CALL 

CLC 

BR 



#*1ESC,LSW<R1) 
R5, -(SP) 
#ESCFLG. R5 
STRCHR 
<SP)+, R5 
#*RTCS. LSW9<R1) 
5* 
STRCHR 



Say last char mas not escape 

Save the character 

Get char that says escape sequence follows 

Store flag character 

Recover real character 

Have we terminated the sequence? 

Br if yes 

Store char that is part of sequence 



6* 

STRACT ; Store char as activation character 

j Say u>e finished processing the character 
9* 



000207 



; This character is not part of a control sequence 

S*: SEC ; Signal char is not part of sequence 

} 

} Finished 

} 

9$: RETURN 



i 
f 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Friday lS-Dec-S7 14:01 Page 66 
CHKODT — Check for DDT activation characters 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


015414 


032761 


OOOOOOG 


13 


015422 


001417 




14 








15 








16 








17 








18 


015424 


120027 


000054 


19 


015430 


001414 




20 


015432 


120027 


000044 


21 


015436 


001411 




22 


015440 


120027 


000073 


23 


015444 


001406 




24 


015446 


120027 


000060 


25 


015452 


103405 




26 


015454 


120027 


000071 


27 


015460 


101002 




28 








29 








30 








31 


015462 


000241 




32 


015464 


000207 




33 








34 








35 








36 


015466 


000261 




37 


015470 


000207 





SBTTL CHKODT 



Check for DDT activation characters 



CHKODT is called to determine whether ODT character 

activation is desired and whether the character in RO 

is an ODT activation character. 

When called RO must contain the character to be tested 

and Rl must contain the user index number. 

On return the c-flag is set if the character is an 

ODT activation character. 

All registers are preserved. 



OOOOOOG CHKODT: BIT 

BEG 



#*ODTMD, LSW4<R1)jODT ACTIVATION DESIRED? 
1$ } BRANCH IF NOT 



User does want odt activation. 
Is this an ODT activation charT-* 



1*: 



CMPB 


RO, #', 


BEG 


1* 


CMPB 


R0>#'$ 


BEG 


1* 


CMPB 


RO, #'> 


BEG 


1* 


CMPB 


RO, #'0 


BLO 


2* 


CMPB 


RO, #'9 


BHI 


2* 



Not activation character. 

CLC 
RETURN 

Oot activation char. 

SEC 
RETURN 



; DON'T ACTIVATE ON ', 
; OR '*' 

i OR ' i ' 

; IS THIS A DIGIT? 

; BRANCH IF NOT DIGIT 

; BRANCH IF NOT DIGIT 
; CLEAR C-FLAG 



i SET C-FLAG 



i 

< 
f 
I 

€ 
I 
€ 
€ 

i 
i 
I 
€ 

I 

i 
i 
i 
i 

< 
C 



01547^ 



01 
01 
01 

01 
01 



01 
01 
01 



5474 

5500 
5502 
5506 
5510 



5514 
5520 



010246 



004737 
103003 
012700 
000402 
012700 



016102 
020200 
101416 



017254' 



0000000 



0000000 



OOOOOOG 



TSTTY — TSX Terminal 1/0 routi MACRO 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



01 
01 
01 
01 



5524 
5530 

5536 



020227 OOOOOOG 

001003 

005061 OOOOOOG 

000406 



01 
01 



5540 

5544 



020227 OOOOOOG 
103005 



015546 
015552 



005761 OOOOOOG 
001401^ 



015554 004737 OOOOOOG 



52 
53 
54 
55 
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. SBTTL INFIN — Tl input tuait completed 

INilN — Routine to add the user whose line index # is 
in Rl to the end of the TTFN queue if the user is 
currently waiting for input. 

Inputs; 
Rl =■■ Virtual line number of job being activated. 

INFIM: MOV R2, -<SP) 

Determine which state to put job in 

jls program doing single character activation? 

i Br if not 

; If yesj put job in special high-prio state 

^*: MOV #S*TTFN.. RO ; Put user in normal input-done state 

If job is already in at least this high a priority states leave it alone 

3*: 



CALL 


SLCHK 


ncc 


2* 


MOV 


#S*TTSC> RO 


BR 


3* 


MOV 


#S«TTFN.. RO 



MOV 
CMP 
BLOS 



LSTATE<R1). r<2 

R2, RO 

9* 



Get job 's current execution state 

Is job already at that high a priority? 

Br if yes — Don't change its priority 



Job's current execution priority is lower than that associated 
with receiving an activation character. 

If job is currently waiting for an activation character, boost its 
priority to get it running again. 

Is job waiting for TT inputl* 

Br if not 

Clear TT read time-out counter 

Go boost priority of job to get it running 

Job is not waiting for Tl input. 

If job is in any other wait state, leave it alone. 



CMP 


R2, #S*INWT 


ONE 


4* 


CLR 


LRDTIM<R1) 


BR 


1* 



4*: 



CMP 
BHIS 



R2, #S1i*RUN 
9* 



ils job in a wait state? 

; Br if yes — Leave it alone 



Job is not in a wait state. 

If job is still classified as "interactive", give it a prio boost. 



01 

01 



5560 
5562 



012602 
000207 



TST LITIME(Rl) 

BEQ 9* 

Boost priority of job 

1*: CALL ENQTL 

Fin i shed 

9*: MOV (SP)+, R2 
RETURN 



;Is job still interactive? 

i Br if not 



; Requeue job at tail of high-prio queue 



TSTTY — 
KILCHR - 

1 

2 

3 

4 

5 

h 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
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" Delete a character from input buffer 



015564 010246 
015566 010346 



015570 005761 
015574 001424 



OOOOOOG 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



015576 016102 0000000 

015602 005302 

015604 020261 OOOOOOG 

015610 103003 

015612 016102 0000000 

015616 005302 

015620 010203 

015622 004737 016312' 



015626 032700 OOOOOOG 

015632 001005 

015634 010302 

015636 004737 016604' 



015642 000241 
015644 000401 



015646 000261 



015650 012603 



0156; 



012602 



SBTTL KILCHR 



Delete a character from input buffer 



KILCHR is called to delete a character 
from the input buffer. 

I n p u t !i : 
Rl =- user index #. 

Outputs; 
The C~flag is set on attempt to delete activation char. 
RO = The character that was deleted. 



KILCHR: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



See if there avs anu characters in the TT input ring buffer 



TST LINCNT<R.t) 
BEQ 3* 



;ANY CHARS IN BUFFER NOW? 
; IF NOT NOTHING TO DELETE 



Locate the last character in the TT input buffer 



1*: 



MOV 

DEC 

CMP 

BHIS 

MOV 

DEC 

MOV 

CALL 



LINNXT<R1)> R2 

R2 

R2, LINBUF<R1> 

1* 

LINEND<R1 ), R2 

R2 

R2, R3 

FETCHR 



i Get pointer past last char in buffer 

> Point to last char in buffer 

;Did we go past front of buffer? 

i Br if not 

i Get pointer past right end of buffer 

j Get pointer to last char in buffer 

J Save pointer to character being deleted 

; Get the last character in the buffer 



Delete the last character unless it is an activation character 

i Is this character an activation char? 
i Br if yes 

; Get pointer to character to delete 
j Delete the character 



BIT 


#ACFLAG. RC 


BNE 


3* 


MOV 


R3, R2 


CALL 


DELCHR 



We successfully deleted a character 



•$: 



CLC 
BR 



9* 



i SAY CHAR WAS DELETED 
! Finished 



There are no characters to delete 



3* : SEC 
> Finished 



; Signal that there are no chars to delete 



9'$: 



52 015654 000207 



MOV 
MOV 
RETURN 



(SP)+, R3 
<SP)+, R2 
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INCHR — Store and echo a character 



i 
i 

i 
i 
i 
i 
i 
i 
i 
i 
I 



1 

2 
3 
4 
5 
6 

7 015656 004737 015674' 

8 015662 103403 

9 015664 010500 

10 015666 004737 017032' 

11 015672 000207 



. SBTTL INCHR — Store a1^(i echo a character 

INCHR is called to storp and echo the 

input character in R5. 

the user's index # mur>t be in Rl. 



INCHR: 


CALL 


STRCHR 




BCS 


1* 




MOV 


R5, RO 




CALL 


ECHO 


1<^: 


RETURN 





STORE THE CHARACTER 
13R IF INPUT BUFFER OVERFLOW 
GET CHARACTER INTO RO FOR ECHO 
; ECHO THE CHARACTER 
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JTRCHR 



Store a character into Tl buffer 



01 
01 
01 



5674 
5676 
5700 



5702 
5710 
5712 
5720 



010046 

01024v':> 

010346 



032761 
001006 
052761 
116161 



OOOOOOG 
0000000 



1 

P 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 01 

16 01 

17 01 
IS 01 
19 
20 

21 

22 015726 016103 OOOOOOG 

23 015732 020327 000012 

24 015736 103022 

25 015740 005761 OOOOOOG 

26 015744 001403 

27 015746 052761 OOOOOOG 
23 015754 020327 000006 

29 015760 103011 

30 015762 020327 000002 

31 015766 101470 

32 015770 120527 OOOOOOG 

33 015774 001403 

34 015776 032705 OOOOOOG 

35 016002 00146,':' 
36 

37 
38 
39 

40 016004 

41 016012 016102 

42 016016 010203 

43 016020 005203 

44 016022 020361 

45 016026 103402 

46 016030 016103 

47 016034 010361 
4S 016040 

49 
50 
51 

52 016046 010500 

53 016050 004737 016454' 
54 

55 
56 
57 016054 005361 OOOOOOG 



SBTTL 



5TRCHR 



Btore a character into TT buffer 



STRCHR is called to storp the character 

in R5 into the input buffer. 

The C~flag is set if tijc buffer overflows. 

Rl ~ User index number. 

All registers are preserved. 



STRCHR: MOV 
MOV 
MOV 



RO, -(SP) 
R2, -(SP) 
R3, -(SP) 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



Keep track of cursor position of 1st character on the line 

BIT #<*lSTCHf*DODFR>. LSW3(R1); 1ST CHAR AFTER ACTIVATION? 

BNE 4« J BRANCH IF NOT FIRST 

BIS #*1STCH, LSW3(Rl)iSAY WE'VE GOT A CHAR 

MOVB LC0L(R1)> LINCUR<R1); SAVE CURSOR POSITION 

See if buffer is about to overflow 



4$: 



OOOOOOG 



8*: 



MOV 

CMP 

BHIS 

TST 

BEQ 

BIS 

CMP 

BHIS 

CMP 

BLOS 

CMPB 

BEQ 

BIT 

BEQ 



LINSPC<R1 )> R3 iGet # free bytes in TT input ring buffer 

R3i #10. iGot at least 10 free bytes? 

7* > Br if yes 

LACTIV<R1) i Gotten an activation char yet?' 

8* J Br if not 

#*XSTOP, LSW6(R1 )i Don 't move any more chars out of silo 



R3, #6. 

7* 

R3, #2. 

5* 

R5, #CR 

7* 

#ACFLAS> R5 

5* 



/Got at least 6 bytes leftT' 

; Br if yes — accept the character 

;l5 the buffer as full as tue will alloui?' 

j Br if yes — Discard the character 

i Is this a carriage return?' 

i Bt if yes — accept it 

j Is this an activation character? 

; Br if not — Reserve last 4 bytes for act chr 



Determine position where char is to be stored in input ring buffer 
and update pointer to ne.xt free position. 

7«: DISABL iijDi sable interrupts 

Get pointer to next position in TT buffer 

Compute address of next char position 
Did we go past end of buffer?' 
Br if not 

Wrap around to front of buffer 
1*: MOV R3, LINNXT (Rl ) i j i Save pointer to where next char goes 

Enable interrupts 



DISABL 




MOV 


LINNXT(R1),R2 


MOV 


R2, R3 


INC 


R3 


CMP 


R3, LINEND(Rl) 


BLD 


1* 


MOV 


LINBUF(Ri>>R3 


MOV 


R3, LINNXT(Rl) 


ENABL 





Store character into buffer 



MOV 
CALL 



R5, RO 
INSCHR 



Updatf? character counts. 
DEC LINSPC(RJ) 



i Get character to store 
i Store the character 



; Reduce free space count for buffer 
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• 1 6064 
116070 
U6072 
116076 
116104 
116112 
H6114 



032705 
001414 
005261 
016161 
032761 
001003 
042761 



005761 
001403 



000241 
012603 
012602 
1 2600 
000207 



052761 
012700 
004737 
000261 
000763 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



58 016060 005261 OOOOOOG 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 
69 
70 
71 

72 016122 

73 016126 

74 016130 
75 
76 
77 

78 016136 

79 016140 
SO 016142 

81 016144 

82 016146 
S3 
84 
85 

86 016150 

87 016156 

88 016162 

89 016166 

90 016170 



INC LINCNKRl) i Count another char in input buffer 
Check for storina activation character. 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 



BIT 
I3EQ 
INC 
MOV 
BIT 
BNE 
BIC 



#ACFLAG, R5 

3* 

LACTIV<R1) 



i IS THIS AN ACTIVATION CHAR? 

i BRANCH IF NOT 

i Count another pending activ char 
LINNXT(R1),LSTACT<R1); REMEMBER POS OF CHAR 
#*DODFR , LS W3 ( R 1 ) i DO I NG DEFERED ECHOING? 
3« i BRANCH IF YES 

#*1BTCH, LSW3(Ri); SAY NO CHARS AFTER ACTIVATION 



See i f tue need to trigqer a completion routine for TT input 



J*: 



TST 
BEO 
OCALL 



LTTCR<R1) 

10$ 

TTCPL 



Finished 



10*: 
6$: 



etc 

MOV 
MOV 
MOV 
RETURN 



; Does job want TT input compl routine? 

; Br if not 

j Trigger completion routine 



SIGNAL NO BUFFER OVERFLOW 



<SP)+, R3 
( SP ) +, R2 
< SP ) +, RO 



Signal buffer overflow 



OOOOOOG 
OOOOOOG 
017072' 



OOOOOOG 5*: 



BIS 

MOV 

CALL 

SEC 

BR 



#*TTERR, LSW4<R1); REMEMBER THAT AN ERROR OCCURED 

#BELL, RO ; Get a bell character 

ECH02 ; Ring the bell to signal buffer nearly full 

; SIGNAL OVERFLOW 
6* 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 

22 
23 
24 
25 
26 
27 

28 01 

29 01 



. SBTTL STRACT — Btore activation character 



01 
01 
01 
01 
01 
01 
01 



01 
01 
01 



6172 
6176 
6202 
6206 
6214 
6216 



6234 
6236 



6244 
6250 



052705 
004737 
042705 
032761 
001004 
005061 
005061 



032761 
00 1 403 
052761 



004737 
000207 



STRACT is called to store* an activation character 
which is contained in R5. The high order bit of 
the word <ACFLAG) is set on to indicate to GETCHR 
that the character is an activation character. 
After the character is stored the user is activated. 
When called, R5 must contain the character to be stored. 
HI must contain the user index #. 
All registers are preserved. 



0000000 STRACT: BIS #ACFLAQ, R5 

015674' CALL STRCHR 

0000000 B.IC #ACFLAG,R5 

0000000 OOOOOOG BIT #*DBGMD, LSW6<R1 ) 

BNE 3* 

OOOOOOG CLR LAFSIZ<R1) 

OOOOOOG CLR LFWLIIKRl) 



SET ACTIVATION FLAG WITH CHAR 

STORE THE CHARACTER 

RESET THE FLAG 

IS DEBUGGER DOING 1/0 NOW? 

BR IF YES - DON'T RESET ACTIVATION INFO 

RESET FIELD-WIDTH ACTIVATION 

CLEAR FIELD WIDTH LIMIT 



BIT 
BEQ 
BIS 



i See if u>e should begin deferred char echoing. 
OOOOOOG OOOOOOG 3$: 
OOOOOOG OOOOOOG 

; Activate the job 

1$: CALL INFIN ; ACTIVATE THE USER 

RETURN 



#*DEFER,LSW2<R1); DEFERRED MODE WANTED? 
1* i BRANCH IF NOT 

#*DaDFR,LSW3<Rl)i BEGIN DEFERRED ECHOING 



015472' 



TBTTY — 
STRSNG - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
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— Store char with single-character input 



. SBTTL STRSNG 



Store char with single-character input 



STRSNG is called to store- a character received while in 
sintjle character activation mode. 



I n p u t B : 
Ri = Job index number. 
R5 = Character received. 



016252 010546 



016254 052705 OOOOOOG 
016260 004737 015674' 



016264 032761 OOOOOOG OOOOOOG 

016272 001403 

016274 052761 OOOOOOG OOOOOOG 



016302 004737 015472' 



016306 012605 
016310 000207 



TRSNG: NOV 



R5, -(SP) 



Save input character 



Store the activation character 



BIS #ACFLAG,R5 
CALL STRCHR 



> Set activation flag with char 
i Store the character 



See if we need to begin deferred echo mode 

BIT #*DEFER, LSW2<R1 ); Deferred mode wanted^' 

BEO 4* i Branch if not 

BIS #*DODFR.. LSW3<R1 )i Begin deferred echoing 



Activate the job 

4$: CALL INFIN 

F i 11 i & h e d 

9$: MOV (SP)+, R5 
RETURN 



/Activate the job 



; Recover the original character 



TSTTY -- TSX Terminal 1/0 routi MAC 
FETCHR — Fetch next char from TT i 



I 



3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 






17 016312 


010446 




18 016314 


010546 




19 






20 






21 






22 016316 


020261 


OOOOOOG 


23 016322 


001450 




24 






25 






26 






27 






28 016324 


010204 




29 016326 


166104 


ooooooe 


30 016332 


073427 


177775 


31 016336 


072527 


177763 


32 016342 


042705 


177770 


33 016346 


066104 


0000000 


34 






35 






36 






37 016352 






38 016360 






39 016374 


005000 




40 016376 


1 52200 




41 016400 


136514 


000340 ' 


42 016404 


001402 




43 016406 


052700 


OOOOOOG 


44 016412 






45 016420 






46 






47 






48 






49 016426 


020261 


ooooooe 


50 016432 


103402 




51 016434 


016102 


OOOOOOG 


52 






53 






54 






55 016440 


000241 




56 016442 


000401 
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nput rinp buffer 

. SBTTL FETCHR — F-etch next char from TT input ring buffer 

FETCHR 15 called to fetch the next character from the TT input 
ring buffer. 

Inputs: 
Rl - Line index numbc-r. 
f?2 - Pointer to character in TT input ring buffer. 

Outputs: 
C-flag cleared ==> A char was gotten. 

C-flag set ==> No more chars in TT input ring buffer. 
RO - Character gotten <if C-flag cleared). 

The ACFLAG flag is set in RO if the char is an activation char. 
R2 = Updated to point to next character. 



FETCHR: MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



See if there is another character in the ring buffer 



CMP R2, LINNXT<R1 ) 
I3EQ 8* 



; Are there any more chars in the buffer? 
i Et if not 



Compute index into bit vector that indicates if character is an 
activation character. 



Get pointer to character 

Get character index into buffer 

Get byte index into vector in R2 

Right justify bit-wi thin-byte index 

Clear possible sign extension from shift 

Get address of byte with flag bit 



MOV 


R2, R4 


SUB 


LINBUF<R1),R4 


ASHC 


#-3, R4 


ASH 


#~13. , R5 


BIC 


#--C7, R5 


ADD 


LINEND(Rl), R4 



Get next character from TT ring buffer. 



DISABL 




TTMAP 




CLR 


RO 


BISB 


<R2)+, RO 


BITB 


BITMSK(R5), <R4) 


BEQ 


1* 


BIS 


#ACFLAG, RO 


UWMAP 




ENABL 





** Disable interrupts *# 
Map to TT buffer area 
Initially clear RO 

Get character without sign extension 
Is this an activation character? 
Br if not 

Remember this is an activation character 
F< est ore mapping 
** Enable interrupts -fr* 



See if we need to wrap around to front of ring buffer 



3*: CMP R2, LINEND<R1 ) 
BLO 4* 
MOV LINBUF(RJ ),R2 



We got a character 



4«: 



CLC 
BR 



57 



9* 



;Did we just go past end of ring buffer? 

j Br if not 

} Wrap around to front of ring buffer 



; Signal that we got a character 
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FETCHR — Fetch next char from TT input rinci buffer 

58 .: Therp are no more characttrrs in the buffer 

59 > 

60 016444 000261 S*: SEC .; Signal that there are no more characters 

61 i 

62 i F i n i & h e d 

63 i 

64 016446 012605 9$: MOV <SP)+, R5 

65 016450 012604 MOV (SP)+, R4 

66 016452 000207 RETURN 



TSTTY — TSX Terminal I/O routi 
INSCHR — Insert character into 



3 








4 








5 








6 








7 








S 








9 








10 








1.1 








12 








13 








14 








15 


016454 


010446 




16 


016456 


010546 




17 








18 








19 








20 


016460 


010204 




21 


016462 


166104 


OOOOOOG 


22 


016466 


073427 


177775 


23 


016472 


072527 


177763 


24 


016476 


042705 


177770 


25 


016502 


116505 


000340 ' 


26 


016506 


066104 


OOOOOOG 


27 








28 








29 








30 


016512 






31 


016520 






32 


016534 


1 1 0022 




33 


016536 


140514 




34 


016540 


032700 


OOOOOOG 


35 


016544 


001401 




36 


016546 


150514 




37 


016550 






38 


016556 






39 








40 








41 








42 


016564 


020261 


OOOOOOG 


43 


016570 


103402 




44 


016572 


016102 


OOOOOOG 


45 








46 








47 








48 


016576 


012605 




49 


016600 


012604 




50 


016602 


000207 
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11 input ring buffer 

. BBTTL INSCHR — Insert character into TT input ring buffer 

ThiE routine is called to insert a character into a specified position 
in the TT input-character buffer for a line. If there is an existing 
character in the position, it is overmr itten. 

Inputs: 
RO - Character to be stored (optionally with ACFLAG flag). 
F?l - Line index number. 
R2 = Pointer to position in buffer where char is to be stored 

Outputs: 
R2 = Pointer to next character position in buffer. 



INSCHR: MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



MOV 


R2, R4 


SUB 


LINBUF<R1),R4 


ASHC 


#-3, R4 


ASH 


#-13. ,R5 


BIC 


#•••^07, R5 


MOVE 


BITMSK<R5),R5 


ADD 


LINEND(R1 >,R4 



Compute pointer into parallel bit vector with activation-character flags 

Get character buffer pointer 

Compute byte index into buffer 

Get byte index in R4 

Right justify b it-wi thin-byte index 

Clear possible sign extension 

Get bit mask 

Get address of byte with activation flag 

Store character into buffer and set or clear the activation-character flag 

•«•*• Disable interrupts «•* 
Map to TT buffer area 
Store character into buffer 
Clear the activation-character flag 
Is this an activation character? 
Br if not 

Set the activation-character flag 
2«: UNMAP ;;; Restore mapping 

•«■* Enable interrupts «•* 

See if we need to wrap around buffer pointer 



DISABL 




TTMAP 




MOVE 


RO, <R2) + 


BICB 


R5, (R4) 


BIT 


#ACFLAG, RO 


BEG 


2* 


BISB 


R5, <R4) 


UNMAP 




ENABL 





CMP 
BLO 
MOV 

Finished 



9$: 



MOV 
MOV 
RETURN 



R2, LINEND<fU) 

9* 

LINBUF(R1),R2 



<SP)+, R5 
<SP>+>R4 



i Do we need to wrap around to buffer front? 

.: Br if not 

i Wrap around to front of buffer 



I 
I 
f 
I 
I 
< 
I 
I 

i 

i 

i 

i 

€ 

i 

i 

i 

{ 

i 

i 

I 

( 
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DELCHR — Delete character from T'f input ring buffer 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



16604 
1 6606 



16610 
16612 
16616 



116620 
116624 



0] 

03 

016626 

016632 



16634 
16636 
16640 
16646 
16652 
16654 



1 666cL 
16664 
16670 
16672 
16674 
16700 
16702 
16704 



010346 
010546 



010203 
004737 
103502 



010046 
010346 

020261 

001415 



010205 
004737 
010246 
010302 
004737 
010503 
012602 
000755 



. SBTTL DELCHR — Df^le-te character from TT input ring buffer 

DELCHR is called to remove a character from the TT input ring buffer. 
If there are other characters in the ring buffer in front of the one 
being deleted, the ring buffer is compressed. 

Inputs: 
Rl " Line index number. 
R2 = Pointer to character to delete. 

Outputs: 
C-flag set ==> No more characters in buffer. 
RO = Deleted character (Same format as FETCHR). 
R2 = Pointer to character that follows deleted character. 



DELCHR: 



MOV 
MOV 



R3> 
R5, 



(SP) 
(SP) 



Get the character beina deleted 



016312' 



MOV 

CALL 

BCS 



R2, R3 

FETCHR 

20* 



; Save original character pointer 
; Set character being deleted 
J Br if no character to delete 



See if we are deletinq the 1st character in the buffer 



020361 OOOOOOG 

001003 

010261 OOOOOOG 

000434 



CMP R3, LINPNT(Rl) 

BNE 3* 

MOV R2, LINPNT<R1) 

BR B* 



; Is this the 1st char in the buffer? 
; Br if not 

i Set new pointer to 1st char in buffer 
> Go update buffer counts 



3$: 
4*: 



OOOOOOG 



016312' 



016454' 



We are not deleting the Ist character in the buffer. 

If we are deleting a character from the middle of the buffer* we move 

over any following characters to compress the free space. 

If we are deleting the last character in the buffer* no compression 

is necessary. 

Save character that is being deleted 

Save pointer to deleted char position 

; ; #* Disable interrupts ** 

; i Are we at the end of the chars now? 

i iBr if yes 

** Enable interrupts ** 

in buffer to fill in gap left by deleted character 

Save pointer to following character 

Get next character in buffer 

Save updated pointer 

Get pointer to pos to store character 

Reinsert the character 

Advance insert pointer 

Get pointer to next char to move over 

Loop until all characters have been moved 

We have moved over all characters that followed the deleted one. 
Save new pointer to the end of the characters in the buffer. 



€ 



MOV 


RO, -<SP) 


MOV 


R3, -(SP) 


DISABL 




CMP 


R2, LINNXT<RJ ) 


BECJ 


5* 


ENABL 




charac 


ters over in b 


MOV 


R2, R5 


CALL 


FETCHR 


MOV 


R2, -<SP) 


MOV 


R3, R2 


CALL 


INSCHR 


MOV 


R5, R3 


MOV 


(SP)+, R2 


BR 


4* 
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DELCHR — Delete character from TT input ring buffer 



58 








59 


016706 


010361 


OOOOOOG 


60 


016712 






61 


016720 


012602 




62 


016722 


012600 




63 








64 








65 








66 


016724 


005261 


OOOOOOG 


67 


016730 


005361 


OOOOOOG 


68 


016734 


032700 


OOOOOOG 


69 


016740 


001402 




70 


016742 


005361 


OOOOOOG 


71 








72 








73 








74 








75 


016746 


032761 


OOOOOOG OOOOOOG 


76 


016754 


001422 




77 


016756 


026127 


OOOOOOG 000017 


78 


016764 


101406 




79 


016766 


032700 


OOOOOOG 


80 


016772 


001413 




81 


016774 


005761 


OOOOOOG 


82 


017000 


001010 




83 


017002 


042761 


OOOOOOG OOOOOOG 


84 


017010 


052761 


OOOOOOG OOOOOOG 


85 


017016 


005237 


OOOOOOG 


86 








87 








88 








89 


017022 


000241 




90 








91 








92 








93 


017024 


012605 




94 


017026 


012603 




95 


017030 


000207 





5*: 



MOV 
ENABL 
MOV 
MOV 



R3, LINWXKRl ) 

<SP)+, R2 
<SP)+, RO 



Update character counters 



8*: 



INC 


LINSPC<R1) 


DEC 


LINCNT(Rl) 


BIT 


#ACFLAG, RO 


BEQ 


19* 


DEC 


LACTIV(Rl) 



i i Set new pointer to end of chars in buffer 
** Enable interrupts «* 

Get pointer to char folloufing deleted one 
Get character being deleted 



; Another free char space in buffer 

■> One less char in buffer 

; Is deleted char an activation char? 

J Br if not 

j One fewer pending activation chars 

i If wc? sent an XOFF to the terminals 

> send an XON if the input buffer is nearly empty. 

i 

19*: BIT #*XSTOP» LSW6(Rl)i Have we stopped input from silo buffer? 

BEQ 16* i Br if not 

CMP LINCNT(R1>,#15. i Is input buffer almost empty? 

BLOS 17* ;Br if yes 

BIT #ACFLAG. RO >Is this an activation character? 

BEG 16* ; Br if not 

TST LACTIV<R1) ;Is this last activation char in buffer? 

BNE 16* i Br if not 

17«: BIC #*XSTOP, LSW6<R1 >J Reenable input from silo 

BIS #*NDICP, LSW10<R1 ); Say line needs input character servicing 

INC NEDCDI J Say input character processing needed 

We deleted a character 
16*: CLC 

Finished 
20*: 



; Signal that we deleted a character 



MOV 


<;SP)+, R5 


MOV 
RETURh 


(SP)+, R3 
i 
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1 
2 
3 
4 
5 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL ECHO 



— Echo character to terminal 



017032 
017036 
017042 
017050 
017052 
1 7060 
017062 
017070 
017072 
017100 
017102 
017106 



017110 
017112 
017116 
017122 
017124 
017130 
017134 
017140 
017144 
017150 
017154 
017156 



017160 
017166 
017170 
017176 
017200 



004737 
004737 
032761 
001016 
032761 
001004 
032761 
001406 
026127 
002402 
004737 
000207 



010046 
1 1 2700 
004737 
010500 
052700 
004737 
112700 
004737 
112700 
004737 
012600 
000207 



032761 
001411 
042761 
010046 
112700 



Subroutine ECHO is called to echo the character in RO. 
User index must be in RJ. 

ECHOl does not check for rubout character echoing. 
ECH02 does not check for deferred character echoing. 
All registers are preserved. 



017160' 
017414' 
OOOOOOG 



ECHO: 
ECHOl 



OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 000017 ECH02: 

ECHOR: 



CALL RBEND 

CALL CVTLC 

BIT #*D0DFR , LSW3 < R 1 ) 

BNE ECHOR 

BIT #*ECHO, LSW2(R1) 

BNE ECH02 

B I T #*DBGMD, LSW6 < R 1 ) 

BEQ ECHOR 

CHP LOTSPC(Rl), #15, 

BLT ECHOR 

CALL PUTCH2 

RETURN 



TERMINATE ANY RUBOUT FIELD 

CONVERT LOWER CASE CHARS TO UPPER CASE 

ARE WE DEFERRING ECHO NOW? 

BRANCH IF WE ARE 

IS CHARACTER ECHOING WANTED? 

BR IF YES 

IS A DEBUGGER USING TERMINAL NOW? 

BR IF NOT 

ROOM TO ECHO CHAR? 

BRANCH IF NOT 

PUT CHAR IN OUTPUT BUFFER 



SBTTL ECOCTL 



Echo a control character 



ECOCTL is called to echo certain control characters 
such as ctrl-C and ctrl-U. When called R5 must 
contain the control character. The control character 
is converted to a printing ascii char and printed 
folloujing an up arrow and before a ci — If. 
When called Rl must contain the line index. 
all registers are preserved. 



ECOCTL: 



000136 
017032' 

000100 

017036' 

OOOOOOG 

017036' 

OOOOOOG 

017036' 



MOV 

MOVB 

CALL 

MOV 

BIS 

CALL 

MOVB 

CALL 

MOVB 

CALL 

MOV 

RETURN 



RO, -(SP) 
#136, RO 
ECHO 
R5, RO 
#100, RO 
ECHOl 
#CR, RO 
ECHOl 
#LF, RO 
ECHOl 
<SP)+, RO 



; ECHO '■'■" 

GET CONTROL CHARACTER 
CONVERT TO PRINTING CHAR 
PRINT CONTROL CHAR 
PRINT CR-LF 



SBTTL RBEND 



Terminate rubout sequence 



RBEND is called to terminate any current rubout field. 
If a rubout field is in progress RBEND puts out 
a back slash and terminates the rubout state. 
When called Rl must contain the user index #. 
AH registers are preberv£>d. 



OOOOOOG OOOOOOG RBEND: 



OOOOOOG OOOOOOG 



000 1 34 



BIT #*RBOUT, LSW3(R1 )i ARE WE IN A RUBOUT FIELD? 

BEQ 1* ; BRANCH IF NOT 

BIC #*RB0UT..LSW3<R1.>; CLEAR RUBOUT STATE 

MOV RO, -<SP) 

MOVB #'\,R0 ; OUTPUT BACK SLASH 



i 
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RBEND — Terminate rub out sequence 

< 

58 017204 004737 017036' CALL ECHOl 

59 017210 012600 ilOV (SP)+, RO 

60 017212 000207 1$: RETURN I 

f 
I 

i 

i 

i 

c 
< 

€ 

i 
i 

i 
i 

i 



TSTTY — 
SCACHK - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2S 

29 

30 
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- Check for sinq le-charac ter activation 



. BBTTL SCACHK — Chech for single-character activation 

SCACHK is called to determine if this job is in single character 
activation mode. 

Inputs: 
Rl " Job index number. 

Outputs: 
C -f lag set if in single character activation mode. 



017214 032761 OOOOOOG OOOOOOG SCACHK: BIT 



017222 001412 

017224 032761 OOOOOOG OOOOOOG 

017232 001406 

017234 032761 OOOOOOG OOOOOOG 

017242 001002 



017244 000261 
017246 000401 



017250 000241 



017252 000207 



BEQ 
BIT 
BEQ 
BIT 
BNE 



#SPCTTY, LJSW<R1) 

1* 

#*CHACT> LSW5(R1} 

1* 



Does program want single char input? 
Br if not 

Is single character activation enabled? 
> Br if not 



#*DBGMD> LSW6(R1 )i Is a debugger using terminal now? 

1* 



/Br if yes 
viob is in single character activation mode 

.! Signal that single char activation wanted 



SEC 
BR 



9* 



Job does not want single char activation 
1*: CLC j Signal no single char activation 

> Finished 
9$: RETURN 



i 



17254 
17262 
17264 
17272 
17274 
17302 
17304 



032761 
001411 
032761 
001437 
032761 
001033 
000430 
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SLCHK — Check for sincile line 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



17306 
17314 
17316 
17324 
17326 
17334 
17336 
17344 
17346 
17354 
17356 
17364 



17366 
17370 



032761 
00 1 426 
032761 
001022 
032761 
001016 
032761 
001012 
032761 
001004 
032761 
001402 



000261 
000401 



017372 000241 



017374 000207 
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editor mode 

. SDTTL SLCHK — Check for single line editor mode 

SLCHK is called to determine if this job is in either single character 
activation mode or if the input is going to the single line editor. 

Inputs: 

Rl = Job index number- 
Outputs: 

C-flag set if in single-character-activation or SL mode. 

All registers are pres(?rved. 



0000000 OOOOOOG SLCHK: 
0000000 OOOOOOG 
OOOOOOG OOOOOOG 



BIT #SPCTTY» LJSW<R1 )i Does program want single char input? 

BEQ 1* ;Br if not 

BIT #*CHACT, LSW5<R1 ); Is single character activation enabled? 

BEG 2* ; Br if not 

BIT #*DBGMD, LSW6<R1 ); Is a debugger using terminal now? 

BNE 2* ; Br if yes 

BR 3* i We are in single character mode 



OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



We are not in single character activation mode. 

See if we are in Single Line Editor mode. 

1*: BIT #*SL0N>LSW7<R1) ils SL enabled for this line? 

BEQ 2* ; Br if not 

BIT #DISSLE/LJSW<Rl)i Did program disable SL? 

BNE 2* i Br if yes 

BIT #<*ODTMD!$HlTTY>i LSW4<R1 )i Are we in ODT or high efficiency? 

BNE 2* i Br if yes 

BIT #*VTESC>LSW5<Rl)i VTxxx activation enabled? 

BNE 2* ; Br if yes 

BIT #*GTLIN>LSW4<Rl)i Is a . GTLIN being done? 

BNE 3* iBr if yes 

BIT #*SLTTY, LSW7<Rl>i Is SL enabled for TTY input? 

BEQ 2* ; Br if not 

We are in single line activation or single line editor mode. 



3^: 



SEC 
BR 



Signal single character mode 



9* 



We are not in single character mode. 
^*: CLC j Signal not single character mode 

Finished 
9$: RETURN 



i 
c 
i 
i 
i 
i 
i 
i 
i 
i 
i 

I i 

I 
i 

i 
i 
i 

4 
i 
4 
4 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



017376 004737 017254' 
017402 103003 



017404 004737 016252' 
017410 000261 



01741; 



000207 



. SBTTL SCACHR — Handle single-character activation characters 

SCACHR is called to check to see if the program is in single-character 
activation mode. If yes then the current character is passed to the 
program as an activation character. 
If not then the carry-flag is cleared on return. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

Outputs: 
C-fiag set ==> In single-char activation mode. Char processed. 
C~flag cleared ===> Not in single character activation mode. 



SCACHR: CALL SLCHK 
BCC 9* 



; Are uje in single-char activation mode? 

i Br if not 



We &TB in single-character activation mode. 

Pass the character to the program as an activation char. 



CALL 
SEC 

Finished 

9$: RETURN 



STRSNG 



i Store character and activate 

; Say character mas processed by us 
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5 

6 
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9 

10 

11 

12 
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14 
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16 

17 

18 
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20 

21 

22 

23 

24 

25 

26 

27 
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017414 032761 
017422 
017424 
017432 



01 
01 
01 
01 
01 
01 
01 
01 
01 



7434 
7436 
7442 
7446 
7450 
7454 
7456 
7462 
7464 



001404 

032761 
001014 



010046 
042700 
020027 
00240S 
020027 
101002 
042716 
012600 
000207 



. SBTTL CVTLC — Convert lower-case chars to upper-case 

CVfLC is called to see if TT Input characters entered 

in lower case should be translated to upper case. 

When called? RO must contain the character to be tested. 

Rl must contain the user line index #. 

CVfLC checks to see if set-lc has been done and if the 

bit is set in the JSW allowing lower case characters. 

On return* the resulting character is returned in RO. 

All other registers are preserved. 



OOOOOOG OOOOOOG CVTLC: 
0000000 OOOOOOG 



BIT 


#*LC,LSW2(R1) 


WAS "SET TT LC" DONE? 


BEO 


1* 


BR IF NOT 


BIT 


#LCBIT, LJSW<R1) 


IS LC-BIT SET IN JSW? 


BNE 


2* 


BR IF YES <LC OK) 



Translate lower case to upper case 



OOOOOOG 
000141 

000172 

000040 



1*: 


MOV 


RO, -<SP) 




BIC 


#ACFLAG, RO 




CMP 


RO, #141 




BLT 


3* 




CMP 


RO, #172 




BHI 


3* 




BIC 


#40, <SP) 


3*: 


MOV 


(SP>+, RO 


2*: 


RETURN 





SAVE ORIGINAL CHARACTER VALUE 

CLEAR ACTIVATION FLAG 

LC< 'A'.) 

BR IF NOT LOWER-CASE LETTER 

LC < ' Z ' ) 

BR IF NOT LOWER-CASE LETTER 

CONVERT LOWER-CASE LETTER TO UPPER-CASE 

GET POSSIBLY CONVERTED LETTER BACK TO RO 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



017466 
017470 



010046 
010146 



017472 016100 
017476 026001 
017502 001415 



OOOOOOG 
0000000 



017504 
017512 
017514 



017522 
017526 
017532 



032761 
00 1 1 1 
052761 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



016001 OOOOOOG 
112700 OOOOOOG 
004737 005722 ' 



. SBTTL SIGWAT — Signal virtual line mait condition 

SIGWAT IS CALLED TO SIGNAL THE USER THAT ONE OF HIS 
VIRTUAL LINES IS ENTERING A WAIT CONDITION. 
IF THE LINE ENTERING THE WAIT STATE IS NOT THE ONE 
WHICH IS CURRENTLY ASSOCIATED WITH THE TERMINAL A BELL 
IS SENT TO THE USER'S TERMINAL. 

I n p u t E : 
Rl = Job index of job entering wait condition. 
All registers are preserved. 



SIGWAT: MOV 
MOV 



R0> -<SP) 
R 1 , - < SP ) 



Only signal if the job that is entering the wait state is not 
currently connected to the terminal. 



MOV LNPRIM<R1), RO 
CMP LNMAP(R0),R1 
BEQ 9* 



GET PRIMARY LINE # 

IS THE LINE CONNECTED TO TERM? 

IF YES THEN NO NEED TO SIGNAL 



If we have already signaled that job is in a wait state* don't 
signal again until user reconnects to this job. 

BIT #*VBELLi LSW9<R1 ); Have we already signaled wait state? 

BNE 9* ; Br if yes 

BIS #*VBELL, LSW9(R1>; Set flag saying we have signaled 

Send bell to signal wait condition 



017536 012601 
017540 012600 
017542 000207 



9«: 



MOV 


LNMAP<RO) 


Rl 


MDVB 


#BELL, RO 




CALL 


TRYCHR 




Finished 






MOV 


<SP)+, Rl 




MOV 


(SP)+, RO 




RETURN 






. SBTTL 


SIGBRK — 


Si 



i GET CURRENTLY CONNECTED LINE # 
; SEND BELL AS SIGNAL CHARACTER 



Signal program that Break character was received 



SIGBRK is called to signal a program that a Break character was received. 
If the program has requested notification of Break character reception* 
an asynchronous completion routine request is queued for the program. 



Inputs: 
Rl --- Virtual line number. 



017544 010446 

017546 016104 

017552 001404 

017554 005061 

017560 004737 

017564 012604 

017566 000207 



OOOOOOG 

OOOOOOG 
OOOOOOG 



SIGBRK: MOV 
MOV 
BEQ 
CLR 
CALL 

1*: MOV 

RETURN 



R4, -(SP) 

LBRKCQ<R1). R4 

1* 

LBRKCQ<R1) 

QCOMPL 

< SP ) +, R4 



DOES USER WANT NOTIFICATION OF BREAK? 

BR IF NOT 

SAY THAT BREAK QUEUE ELEMENT HAS BEEN USED UP 

QUEUE COMPLETION ROUTINE FOR THE JOB 
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58 00000 J 

Errors detected: 

*** Assembler statistics 



END 



Work file reads 
Work file writes 
Size of uiork file 
Size of core pool 
Operating system 







10440 Words 

17920 Words 

RT 11 



< 41 Pages) 

< 70 Paqes) 



Elapsed time: 00:02:06.50 

DK: TSTTY, LP: TSTTY=DK: TSTTY. MAC/C/N: SYM 



I 
I 
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01 Page S- 


-1 
















Cross reference 


table (CREF 


V05. 04) 


























*1CTLC 


1-55 


5 1-2 A 


53-44 


54-40 


55-14 


55-19 


57-29 


60-14 


61- 


-29 


62-16 


63- 


-40 


64- 


-14 


C *1ESC 


1-43 
63-36 


50-77 
64-15 


51-20 
65-21 


53-45 
65-48 


54-41 
65-62 


55-20 


57-30 


60-15 


61- 


-30 


62-17 


63- 


-30 


63- 


-33 


*1STCH 


1-48 


47-25 


55-70 


60-40 


70-15 


70-17 


70-68 


















< *SBIT 


1-52 


12-31 




























*AUTO 


1-34 


49-32 




























*CCLRN 


1-76 


35-38 




























i liCFABT 


1-86 


9-120 


9-122 


























*CFALL 


1-51 


39-75 


39-82 


41-14 


43-35 






















*CFCCL 


1-87 


9-95 


43-12 


























< *CFDCC 


1-87 


9-30 


9-97 


























*CFKIL 


1-87 


55-66 




























*CFOPN 


1-51 


43-22 


43-25 


43-123 
























C $CFSOT 


1-54 


13-27 


39-54 


39-61 


39-68 


43-35 




















tCHACT 


1-44 


28-23 


28-30 


33-75 


34-11 


57-11 


61-11 


63-13 


77- 


-14 


78-15 










*CTRLC 


1-43 


12-22 


19-17 


33-14 


55-65 






















i *CTRLD 


1-40 


56-15 




























«CTRLO 


1-48 


9-113 


13-34 


18-32 


50-9 


58-17 


58-25 


















*CTRLS 


1-49 


55-63 




























i *CTRLW 


1-48 


50-75 


50-78 


50-83 


50-85 


50-09 




















*DBGBK 


1-56 


56-17 




























*DBGMD 


1-82 

71-15 


7-22 
76-15 


35-32 
77-16 


38-25 
78-17 


50-28 


51-49 


51-63 


53-34 


55- 


-40 


60-92 


64- 


-26 


64- 


-93 


*DBKMN 


1-40 


56-12 




























*DEAD 


1-57 


49-27 




























i *DEBUG 


1-56 


56-15 




























*DEFER 


1-46 


25-49 


25-56 


71-22 


72-19 






















«DETCH 


1-43 


13-21 


19-15 


19-17 


24-13 


26-10 


27-13 


28-5 


28- 


-14 


29-13 


33- 


-34 


46- 


-7 


€ fDILUP 


1-42 


49-19 




























*DISCN 


1-42 


12-22 


19-17 


33-14 


33-36 


46-9 




















*DODFR 


1-49 


25-57 


35-12 


47-16 


47-54 


55-61 


60-25 


70-15 


70- 


-66 


71-24 


72- 


-21 


76- 


-11 


1 *DOOFF 


1-42 


7-19 


33-29 


























*EC.HO 


1-44 


25-5 


25-12 


35-48 


36-18 


38-10 


64-24 


76-13 
















*FLAGC 


1-54 


7-26 


7-28 


7-34 
























i *FORH 


1-45 


16-46 




























*FORMO 


1-89 


2- IB 




























*GCECO 


1-49 


25-57 


35-14 


35-16 


36-6 


47-24 


55-61 


















1 *GCESC 


1-49 


33-13 


33-95 


33-102 


38-12 






















«GTLIN 


1-51 


9-24 


9-148 


33-49 


41-12 


78-32 




















*HITTY 


1-54 


6-37 


8-9 


8-20 


12-16 


28-16 


33-45 


33-85 


50- 


-57 


78-28 










i *INKMN 


1-50 


9-56 


9-71 


9-135 


43-42 


43-49 


43-140 


56-10 
















*LC 


1-46 


25-31 


25-42 


80-12 
























*LOFCF 


1-59 


7-17 


33-27 


43-36 


51-15 


55-30 




















i *iMDICP 


1-43 


46-18 


75-84 


























*NOIN 


1-47 


7-21 


12-24 


43-38 


46-29 


55-34 




















*NDINT 


1-45 


33-5B 


46-35 


























i $tMOLF 


1-81 


30-19 


30-26 


38-23 


53-36 






















*tMOOUT 


1-46 


12-33 


20-74 


20-81 


34-41 






















*NOVLN 


i-46 


25-24 




























i *NOWIN 


1-37 


17-17 


43-52 


43-102 
























*NOWTT 


1-39 


6-17 


7-24 


28-37 
























*NTGCC 


1-41 


9-39 


9-43 


9-99 
























i $ODTMD 


1-51 


33-45 


51-32 


53-22 


54-24 


66-12 


78-28 


















*PWKEY 


1-37 


52-16 




























*QUIET 


1-50 


9-104 


35-21 


35-46 


36-16 


39-53 


39-61 


39-68 
















t *RBOUT 


1-48 


60-24 


64-34 


64-38 


76-53 


76-55 
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Cross T 
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*RBRK 


1-34 


49-53 


50-15 


50-18 




















4 *RFRSH 


1-34 


55-36 
























*RTCS 


1-36 


55-21 


65-22 


65-31 


65-36 


65-58 


65-67 














«SCCA 


1-34 


43-51 


43-96 


43-99 


55-32 


















i *SCOPE 


1-44 


60-30 


64-28 






















$SETCC 


1-50 


55-45 
























*SLINI 


1-63 


55-60 
























1 *SLON 


1-38 


33-43 


78-24 






















*SLTTY 


1-38 


33-51 


78-34 






















*SUCF 


1-59 


43-39 


46-30 


55-30 




















< $SUSPN 


1-35 


55-67 
























*TAB 


1-45 


16-29 
























$TAPE 


1-86 


30-5 


30-12 


54-13 




















i *TRNSP 


1-47 


12-50 


25-64 






















*TTERR 


1-54 


8-59 


8-61 


70-86 




















*UCTLC 


1-50 


24-24 


26-35 


35-34 




















< *UKMON 


1-58 


9-58 
























$V52EM 


1-38 


60-71 
























*VBELL 


1-35 


81-26 


81-28 






















i *VTESC 


1-55 


23-17 


23-24 


29-38 


33-47 


33-100 


47-40 


50-64 


78-30 










*XSTOP 


1-86 


46-15 


46-17 


48-21 


70-27 


75-75 


75-83 














... VI 


40-37 


40-37 


43-24 


43-121 


43-121 


43-127 


43-127 


45-28 


45-28 










< . . . V2 


40-37 
43-127# 


40-37 
43~127# 


40-37# 
45~2S 


40~37# 
45-28 


43-24 
45-28# 


43-24# 
45-28# 


43-121 


43-121 


43-121# 


43- 


-121# 


43-127 


43-127 


ABORT 


1-94 


45-33 
























< ACFLAG 


1-69 


24-43 


24-45 


27-39 


27-42 


29-34 


33-78 


35-6 


38-17 


47- 


-47 


68-34 


70-34 




70-62 


71-12 


71-14 


72-14 


73-43 


74-34 


75-68 


75-79 


80-20 










AF*CCA 


1-34 


43-97 
























i AF*NPW 


1-35 


43-100 
























AFCF 


1-34 


43-48K 


43-95* 


43-97 


43-100 


















ASKLIN 


1-25 


9-12# 
























1 AUTSPD 


1-36 


49-34 
























BELL 


1-67 


29-50 


51-65 


70-87 


81-33 


















BITMSK 


1-175# 


73-4 1 


74-25 






















% BKSPAC 


1-58 


1-66 


60-63 


60-95 


60-99 


64-64 


64-74 


64-81 


64-90 


64- 


-97 






BRKPT 


1-87 


59-10 
























BUFCHR 


1-21 


1 -26 


17-24 


1S~12# 




















i CCVECT 


21-35 


22-4 # 


22-30 






















CFACFL 


1-34 


42-15 


42-39 






















CFARG 


1-40 


40-37 


43-121 


43-127 


45-28 


















i CFBLK 


1-76 


40-36 fc^ 


40-37 


43-117* 


43-127 


















CFBUF 


1-63 


40-37 


40-49 


43-127 




















CFCHAN 


1-63 


40-37 


40-37 


43-24 


43-24 


43-121 


43-121 


43-127 


43-127 










i CFCHAR 


39-26 


39-34 


40-151! 






















CFEND 


1-63 


40-32 
























CFHOLD 


1-44 


9-103* 


39-19 


39-21* 


39-116* 


43-18* 
















i CFIND 


1-91 


43-17 


43-03* 






















CFLAS 


1-89 


3-17 
























CFLFL4 


1-92 


43-87 
























i CFNEST 


1-91 


43-29 


43-132* 






















CFPNT 


1-61 
43-13 


9-100 


9-111 


9-118 


1 3-29 


25-71 


40-31 


40-45 


40-52* 


41- 


•10 


42-10* 


42-33* 


1 CFPOP 


40-44 


43-6# 
























CFSP 


1-91 


43-60 


43-131* 






















CFSPND 


1-69 


9-48* 


9-100* 


9-144 


9-147* 


25-73* 


25-81 


25-84* 












i CFSTOP 


9-101 


25-74 


42~6# 


43-34 
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CFSTRT 


9-146 


25-83 


42-29# 


43-116 






CFTEST 


7-15 


27-16 


29-18 


35-4 


35-40 


35-4^ 


CFTND 


41-11 


41-15 


41 -ie# 








CFTSTl 


41-12# 












CHKABT 


1-73 


2-35 


2-38 


2-56 


2-59 


4-1*; 


CHKODT 


51-34 


66-.l.2# 










CHNADR 


1-90 


2-151J 


3-14 


3-1 6«- 


3-33* 




CKCW 


50-29 


50-65 


50-67 


50-73# 






CKHIIN 


50-50 


50-57# 










CKICTL 


50-86 


50-88 


50-99*! 








CKSPAC 


50-34 


50-36 


50-42# 








CKVTAC 


50-68 


65-14# 










CKVTES 


50-43 


50-58 


50--64# 








CMDA 


22-4 


23- 5# 










CMDB 


1-28 


22-5 


23~i7# 








CMDC 


1-28 


22-6 


23-24 # 








CMDD 


22-7 


24-5# 










CMDE 


1-28 


22-8 


25-5# 








CMDF 


1-28 


22-9 


25-12« 








CMDG 


1-28 


22-10 


25-lS# 








CMDH 


1-28 


22-11 


25-24# 








CMDI 


1-28 


22-12 


25-31# 








CMDJ 


1-29 


22-13 


25~42# 








CMDK 


1-29 


22-14 


25-49« 








CMDL 


1-29 


22-15 


25~56# 








CMDM 


1-29 


22-16 


25~-64# 








CMDN 


1-29 


22-17 


25-71 « 








CMDO 


1-29 


22-18 


25-81« 








CMDP 


22-19 


26- 5# 










CMDQ 


22-20 


27- 5# 










CMDR 


1-29 


22-21 


28 -5# 








CMOS 


1-30 


22-22 


2S-23# 








CMDT 


1-30 


22-23 


28~30# 








CMDU 


1-30 


22-24 


28-37# 








CMDV 


22-25 


29- 5# 










CMDW 


1-30 


22-26 


30-5# 








CMDX 


1-30 


22-27 


30~12# 








CMDY 


1-30 


22-28 


30-19# 








CMDZ 


1-30 


22-29 


30-26# 








CORUSR 


1-61 


9-23 


10-10 


11-15 


33-12 


43-11 


CR 


1-5S 
70-32 


9-128 
76-38 


20-44 


24-55 


29-32 


37-10 


CS$EOF 


1-89 


2-15 


3-14 


3-16 


3-33 




CSEMFO 


1-155 


1-166# 










CSEMID 


1-153 


1-164# 










CSEMIL 


1-152 


1-1 63# 










CSEMIS 


1-157 


1-1 68# 










CSEMIV 


1-158 


1-169# 










CSEMNF 


1-156 


1-1 67# 










CSEPRO 


1-154 


1-165# 










CSIERR 


1-152# 


10-36 










CSIMSG 


1-25 


10-34# 










CTLRTN 


52-33 


52-42# 










CTRLC 


1-64 


9-73 


9-^74 


24-22 


26-33 


35-30 


CTRLX 


1-64 


38-49 










CTRLZ 


1-64 


1-89 


3-24 


9-69 


9-133 


38-45 



14; 01 Paae S~3 



11-28 11-31 31-15 39-97 46-31 



38-58 44-34 49-37 54-26 54-35 60-57 



38-47 49-39 
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CURPRM 


1-63 


39-96* 


40-16 


40-23* 


40-27* 


43-79* 
















CVTLC 


1-22 


33-77 


34-5 


47-44 


50-45 


76-10 


B0-12# 














CXTRMN 


1-40 


9-60 


42-14 


42-38 


43-16 


43-142 
















DELCHR 


1-22 


24-64 


29-47 


33-67 


68-37 


75-1 6if 
















DEL U AC 


24-15 


26-12 


26-1 9# 






















DFRREL 


7-29 


46-24 


47-9# 






















DISSLE 


1-40 


33-4 1 


78-26 






















DOCTRL 


50-101 


52~10# 
























DOSCHD 


1-70 


2-33 


2-54 


4-17 


U-26 


55-46* 
















DOSWIT 


1-36 


50-94 
























ECHO 


51-38 


51-51 


53-25 


54-27 


57-19 


63-21 


63-29 


69-10 


76- 


-9# 


76- 


-34 




ECHOl 


53-27 


53-39 


54-29 


59-20 


60-64 


60-96 


60-98 


60-100 


64- 


-37 


64- 


-41 






64-91 


64-96 


64-98 


76-10# 


76-37 


76-39 


76-41 


76-58 












ECH02 


51-66 


70-88 


76-14 


76-17# 




















ECHOR 


76-12 


76-16 


76-18 


76-20# 




















ECOCTL 


55-24 


55-64 


58-16 


58-26 


59-16 


60-35 


61-19 


62-11 


76- 


-32# 








EMTADR 


1-94 


6-23 


45-31 






















EHTBLK 


1-88 


2-6 


2-9 


2-16 


2-50 


3-6 


3-9 


3-19 


3- 


-40 


4- 


-5 






8-15 


8-lS 


8-34 


8-37 


8-55 


8-67 


S-6S 














EMTPS 


1-90 


3-.17-iJ 
























EMTXIT 


1-90 


4-26 


5-11 


6-42 


7-37 


8-10 


8-58 


8-70 












ENQTL 


1-60 


32-7 


67-50 






















ERHAZL 


60-76 


60-1 18# 
























ERVIOO 


60-79 


60-117# 
























ERV52 


60-69 


60-1 16# 
























ESC 


1-68 


37-8 


38-40 


39-41 


60-116 


60-117 
















ESCFLG 


1-70 


29-36 


33-98 


47-38 


65-64 


















ESCHK 


12-40 


20-14# 
























ESCRLF 


20-44# 


37-24 


37-25 






















ESCTL 


20-34# 


37-21 
























ESESC 


20~60# 


37-23 
























ESFF 


20-52# 


37-22 
























ESHT 


20-66# 


37-26 
























ESRSl 


20-30 


20-40 


20-48 


20-56 


20-62 


20-70 


20-8 1# 














ESRS2 
ESRTN 
ESUAC 
ESXIT 
FAKCMP 


20-29 
20-37 
20-22# 
20-77 
1-88 


20-35 
20-45 
34-33 
20~33# 
4-16 


20-39 
20-55 


20-47 
20-69 


20-53 
20-75# 


20-61 


20-67 


20-74# 












FETCHR 


24-35 


24-60 


27-37 


29-31 


47-35 


59-18 


64-57 


68-30 


73- 


-17# 


75- 


-22 




FF 


1-75 


1-89 


2-20 


20-52 


37-7 


















FORCEX 


1-66 


55-68 
























FRKPR I 


1-39 


18-22 
























eCCKAC 


33-97 


34-10 


35-4# 






















GCCKCC 


33-81 


34-12 


35-13 


35-17 


35-22 


35-30« 
















GCCKCE 


35-5 


35-2 1# 
























GCCKDE 


35-7 


36 -6# 
























eCCKDS 


33-80 


35- 12# 
























GCCKES 


33-22 


33-99 


33-101 


34-5# 




















GCEAC 


35-15 


35-26# 
























GCECHO 


35-26 


36-8 


38-8# 


47-45 




















GCEND 


33-90 


35-31 


35-35 


35-37 


35-41 


36-7 


36-12# 














GCEXIT 


33-54 


36-13 


36-17 


36-19 


36-2 1# 


















GCHl 


33-14# 


33-65 


33-68 






















GETCHR 


3-23 


7-35 


8-42 


9-121 


9-127 


33-10*! 
















GETUCH 


1-88 


2-4 1 


8-22 


8-26 



















64-75 



64-84 



4-13 



8-5 



75-48 
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GOTCHR 48-32 49~9# 

GTCFCH 9-49 9-91 33-20 39-1 4# 39-83 

GTCMl 12-64 21-30# 

GTLTTY 1-90 9-32 9-41 9-89 

GTSLCH 1-38 33-53 

GTSPAC 1-28 24-5 24-1 0# 

HAZEL 1-55 60-50 60-77 

HI ON 8-7 28-7 28-14# 

HI PUT 6-41 8-23 12-18 19-10v»f 

HIRTN 8-8 8-1041 8-19 8-25 8-29 8-46 3-60 

ICPCR 52-55 53-9# 54-36 

ICPCTC 52-45 55-9# 

ICPCTD 52-46 56-10# 

ICPCTG 52-49 57-9# 

ICPCTO 52-57 5S-9# 

ICPCTR 52-60 59-9# 

ICPCTU 52-63 60-9# 

ICPCTX 52-66 61-9# 

ICPCTZ 52-68 62-9# 

ICPESC 52-69 63-9# 

ICPLF 52-52 54-9# 

ICPRUB 50-105 64~9# 

ILSW2 1-44 49-32 

ILWAIT 33-64 46-7# 

IN*ACT 1-42 9-61 43-143 

INCHR 50-81 51-71 53-32 69~7# 

INF IN 67-i0# 71-28 72-25 

INITFL 1-71 49-13 

INITLN 1-92 49-45 

INSCHR 24-47 27-44 70-53 74-1 5# 75-51 

INTPRI 1-69 1-70 1-79 18-51 18-57 19-47 46-44 47-20 47-58 70-48 73-45 74-38 

75-43 75-60 

JSWLOC 1-71 25-32 25~35«- 

KILCHR 60-105 64-39 64-46 68-13# 

KPAR6 1-86 18-41 18-41-K- 18-43* 19-40 19-40* 19-42* 73-38 73-38* 73-44* 74-31 74-31* 

74-37* 

LABTIM 1-45 49-51 

LACTIV 1-61 7-13 8-45 24-48* 27-20 27-45* 33-62 46-33 47-18 55-69* 70-25 70-64* 

75-70* 75-81 

LAFSIZ 1-69 24-49* 27-46* 27-53* 51-44 55-59* 71-17* 

LBRKCH 1-80 50-33 

LBRKCQ 1-82 81-52 81-54* 

LCBIT 1-68 1-79 25-33 55-51 80-14 

LCOL 1-72 14-41* 16-13* 16-15* 16-21* 16-28 16-40* 47-26 60-42 60-84* 70-18 

LESCHR 1-53 20-28 20-34 34-40* 

LESRTN 1-53 20-18 34-34* 

i-P 1-67 9-93 9-123 16-50 20-46 20-54 24-61 37-9 38-21 38-60 44-36 53-16 

53-26 53-33 76-40 

LF*IN 1-95 35-42 36-12 

LF*OUT 1-95 12-69 

LF*WRT 1-95 45-13 

LFWLIM 1-83 24-50* 27-47* 29-15* 29-55* 51-59 55-58* 71-18* 

LHIPCT 1-93 33-60* 46-37* 

LI FUN 12-60 21 -8# 

LINBUF 1-62 68-25 70-46 73-29 73-51 74-21 74-44 

LINCNT 1-66 8-57 24-32 24-57 27-29 29-28 47-33 51-47 51-61 55-54* 68-18 70-58* 
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i 
i 
i 
i 
i 





7 5-67 # 


75-77 






















LINCUR 


1-76 


47-26* 


60-44 


64-54 


70-18* 
















LINEND 


1-62 


68-27 


70-44 


73-33 


73-49 


74-26 


74-42 












LINNXT 


1-65 


55-52 


55-53 


68-23 


70-41 


70-47* 


70-65 


73-22 


75-41 


75-59* 






LINPNT 


1-61 


24-31 


27-35 


29-27 


33-66 


47-29 


55-52* 


75-27 


75-29* 








LINSI2 


1-66 


55-51} 






















LINSPC 


1-47 


55-55* 


70-22 


70-57* 


75-66* 
















LITIME 


1-95 


33-61* 


46-38* 


67-45 


















LJSW 


1-41 


1-90 


6-15 


7-5 


9-32 


9-41 


9-89 


25-34* 


33-41 


33-73 


34-9 


55-51* 




57-9 


61-9 


63-11 


77-12 


78-13 


78-26 


80-14 












LNMAP 


1-60 


49- IS 


81-20 


81-32 


















LNPRIM 


1-67 


50-14 


55-62 


60-70 


81-19 
















LNSPAC 


1-64 


24-16 


24-21* 


26-21 


26-32* 


38-31 


50-42 












LOGBLK 


1-94 


45-28 


45-34* 




















LDGBUF 


1-94 


45-25 






















LOGCHl 


44-19 


44-22 


44-35 


44-37 


45-9# 
















LOGCHN 


1-94 


45-20 


45-28 




















LOGCHR 


1-23 


12-71 


35-50 


36-20 


44 -9# 
















LOGCR 


1-23 


35-51 


44-33# 




















LOGEND 


1-94 


45-20 






















LOGFLG 


1-95 


12-69 


35-42 


36-12 


45-13 
















LOGPTR 


1-95 


45-18 


45-32* 


45-41* 


















LOTBUF 


1-72 


18-46 


19-45 




















LOTEND 


1-72 


18-44 


19-43 




















LOTNXT 


1-72 


18-40 


18-47* 


19-39 


19-46* 


55-57 


58-15 












LOTPNT 


1-75 


55-57* 


58-15* 




















LOTS I Z 


1-37 


55-56 


58-14 




















LOTSPC 


1-72 


6-9 


18-20 


18-24 


18-39* 


19-31 


19-38* 


31-29 


55-56* 


58-14* 


76-17 




LRBFIL 


1-7S 


23-10* 


60-48 


60-91 


64-92 
















LRDTIM 


1-80 


8-67* 


67-33* 




















LRTCHR 


1-80 


8-6B* 


8-69* 


33-69* 


















LSCCA 


1-62 


35-36 


55-38 




















LSNDCH 


1-53 


12-45* 


20-38 


20-75* 


















LSPACT 


1-64 


24-19 


26-23 


38-33 


50-46 
















LSTACT 


1-37 


55-53* 


59-17 


64-56 


70-65* 
















LSTATE 


1-76 


2-36 


2-57 


4-20 


11-29 


58-18 


67-22 












LSTPRM 


1-91 


43-66 






















LSW 


1-41 


7-19* 


12-22 


13-21 


19-15 


19-17 


24-13 


26-10 


27-13 


28-5 


28-14 


29-13 




33-14 


33-29* 


33-34 


33-36* 


46-7 


46-9* 


49-19 


50-77* 


51-20* 


53-45* 


54-41* 


55-20* 




55-65* 


55-67* 


57-30* 


60-15* 


61-30* 


62-17* 


63-30 


63-33* 


63-36* 


64-15* 


65-21* 


65-48 




65-62« 
























LSWIO 


1-52 


46-18* 


49-53* 


50-15 


50-18* 


75-84* 














LSW 11 


1-37 


17-17 


43-52* 


43-102* 


52-16 


60-71 














LSW2 


1-41 


12-31 


16-29 


16-46 


25-5* 


25-12* 


25-24* 


25-31* 


25-42* 


25-49* 


25-56* 


30-5* 




30~12i^ 


35-48 


36-18 


38-10 


54-13 


60-30 


64-24 


64-28 


71-22 


72-19 


76-13 


80-12 


LSW3 


1-41 


7-21* 


9-113* 


12-24 


12-38 


12-50 


13-34 


18-32 


20-74* 


20-81* 


25-57* 


25-64* 




33-13* 


33-95 


33-102* 


34-41* 


35-12 


35-14 


35-16* 


36-6 


38-12 


43-38* 


46-29* 


47-16 




47-24* 


47-25* 


47-54* 


49-27 


50-75 


50-78* 


50-83* 


50-85 


50-89* 


55-34 


55-61* 


55-63* 




55-70* 


58-9 


58-17* 


58-25* 


60-24* 


60-25 


60-40 


64-34 


64-38* 


70-15 


70-17* 


70-66 




70-68* 


71-24* 


72-21* 


76-11 


76-53 


76-55* 














LSW4 


1-34 


1-41 


2-18 


6-37 


7-26 


7-28* 


7-34* 


8-9* 


8-20 


8-59 


8-61* 


9-24* 




9-30 


9-56 


9-71 


9-95 


9-97* 


9-104 


9-135 


9-148* 


12-16 


13-27 


24-24* 


26-35* 




28-16* 


33-45 


33-49 


33-85 


35-21 


35-34 


35-46 


36-16 


39-53* 


39-54* 


39-61* 


39-68* 




39-75* 


39-82* 


41-12 


41-14 


43-12* 


43-22 


43-25* 


43-35* 


43-42 


43-49 


43-88* 


43-91* 




43-123* 


43-140 


50-57 


51-32 


53-22 


54-24 


55-36 


55-45* 


56-10 


66-12 


70-86* 


78-28 




78-32 
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LSW5 


1-41 


6-17 


7-24 


23-17* 


23-24* 


28-23* 


28-30* 


28-37* 


29-38 


33-47 


33-75 


33- 


-100 




34-11 


35-38 


43-51* 


43-96* 


43-99* 


47-40 


50-64 


51-21* 


53-44* 


54-40* 


55-14 


55- 


-19* 




55-32 


57-11 


57-29* 


60-14* 


61-11 


61-29* 


62-16* 


63-13 


63-40* 


64-14* 


77-14 


78- 


-15 




7S-30 


























LSW6 


1-86 


7-22 


9-120* 


9-122* 


30-19* 


30-26* 


35-32 


38-23 


38-25 


46-15 


46-17* 


48- 


-21 




50-28 


51-49 


51-63 


53-34 


53-36 


55-40 


55-66* 


60-92 


64-26 


64-93 


70-27* 


71- 


-15 




75-75 


75-e3fi' 


76-15 


77-16 


78-17 


















LSW7 


1-39 


9-58 


33-43 


33-51 


33-58 


46-35 


55-60* 


78-24 


78-34 










LSW9 


1-59 


7-17 


9-39 


9-43* 


9-99* 


33-27 


43-36 


43-39* 


46-30* 


51-15 


55-21* 


55- 


-30 




56-12 


56-15 


56-17* 


65-22* 


65-31* 


65-36 


65-58* 


65-67 


81-26 


81-20* 








LTRMTP 


1-84 


60-50 


60-73 






















LTSCMD 


1-68 


12-58 


12-64* 


21-15 


21-16* 


23-5* 


24-5* 


26-5* 


27-5* 


29-5* 








LTTCR 


1-35 


70-72 
























LTTPAR 


1-86 


18-41 


19-40 


73-38 


74-31 


















LWINDO 


1-52 


17-15 


19-23 


52-18 




















MAPHLD 


1-148# 


18-41* 


18-43 


19-40* 


19-42 


73-38* 


73-44 


74-31* 


74-37 










MAXCC 


1-30 


21-32 


22~30# 






















MAX SEC 


1-78 


50-92 
























MXCPRM 


1-62 


39-89 
























MXSPAC 


1-37 


24-17 
























NEDCDI 


1-46 


46-19)* 


75-85* 






















NESCTL 


34-23 


37-12# 
























NOWAIT 


1-39 


6-15 


7-5 






















OTREGO 


32-6# 


58-20 
























OUTSTR 


10-7# 


10-37 
























OVRHC 


1-89 


17-19 


19-25 


33-53 


49-34 


49-45 


50-94 


52-25 


70-74 










PBFEND 


1-92 


43-74* 
























PC2VEC 


14-33 


15-10# 
























PCCBS 


15-18 


16"13# 
























PCCCR 


15-23 


16~21# 
























PCCFF 


15-22 


16-46# 
























PCCHT 


15-19 


16-27# 
























PCCINS 


15-10 


15-11 


15-12 


15-13 


15-14 


15-15 


15-16 


15-17 


15-20 


15-21 


15-24 


15- 


-25 




15-26 


1 5-27 


15-28 


1 5-29 


15-30 


15-31 


15-32 


15-33 


15-34 


15-35 


15-36 


15- 


-37 




15-38 


15-39 


1 5-40 


15-41 


i6-a# 


















PCSPND 


1-24 


18-31 


19-33 


31-11# 




















PR7 


1-69 


18-16 


19-30 


31-28 


46-32 


47-15 


70-40 


73-37 


74-30 


75-40 








PRCEND 


50-19 
50-102 


50-24 
50-106 


50-38 
50-1 11# 


50-53 


50-60 


50-69 


50-80 


50-82 


50-84 


50-91 


50-93 


50- 


-95 


PRCHAR 


49-58 


50-0# 
























PRINT 


1-26 


5-5# 
























PRIVCO 


1-36 


43-44* 


43-108* 






















PRIVFO 


1-36 


43-41* 


43-107* 






















PRIVSO 


1-36 


43-41 


43-44 






















PRMBUF 


1-92 


43-75 
























PRMPNT 


1-62 


39-96 


43-61 






















PSW 


1-70 


18-16* 


18-51* 


18-57* 


19-30* 


19-47* 


31-28* 


46-32* 


46-44* 


47-15* 


47-20* 


47- 


-58* 




70-40* 


70-48* 


73-37* 


73-45* 


74-30* 


74-38* 


75-40* 


75-43* 


75-60* 










PUTCHl 


12-76 


13-17# 


38-54 


3S-57 


38-59 


38-66 
















PUTCH2 


13-40 


14-15*1 


60-58 


60-85 


76-19 


















PUTCHR 


1-21 
1 1 -46 


2-21 
11-52 


2-44 

11-54 


2-65 
12-1 1# 


2-70 


3-22 


6-39 


8-27 


10-15 


10-18 


10-20 


11- 


-39 


PUTUCH 


1-88 


3-28 


3-45 


8-43 




















PVNPW 


1-36 


43-46 


43-110 






















QCOMPL 


1-47 


81-55 
























QHDSPN 


1-74 


31-14 


46-41 























TSTTY - 


- TSX Terminal I/O routi MACRO 


V05. 04 


Fr i d a y 18- 


-Dec -87 14. 


01 Page S- 


B 












Ct'oss reference 


table <CREF 


V05. 04 ) 






















QNSPNX 


1-74 


2-37 


2-58 


4-21 


11-30 


















QUECHR 


1-26 


14-45 


16-8 


16-16 


16-22 


16-32 


16-37 


16-51 


16-55 


17-11# 


29-51 


31- 


-31 


R*CFST 


1-34 


42-1 5 )«• 


42-39*- 






















R*INST 


1-91 


9-61 


43-17* 


43-143 




















RBEND 


76-9 


76-53# 
























REGCHR 


50-107 


51-9# 


52-42 


52-43 


52-44 


52-47 


52-48 


52-50 


52-51 


52-53 


52-54 


52- 


-56 




52-58 


52-59 


52-61 


52-62 


52-64 


52-65 


52-67 


52-70 


52-71 


52-72 


52-73 


56- 


-22 




57-25 


61-25 
























RSSPAC 


1-29 


26-5 


26-10# 






















RUBOUT 


1-66 


14-39 


50-103 






















S$$RUN 


1-56 


67-39 
























SflNWT 


1-77 


46-40 


67-31 






















S*OTFN 


1-60 


32-6 
























S^OTWT 


1-73 


31-13 


58-18 






















S*TTFN 


i~ei 


67-18 
























S*TTSC 


l-Sl 


67-16 
























SCACHK 


38-8 


50-66 


77-12# 






















SCACHR 


50-79 


54-18 


55-22 


59-11 


60-19 


62-9 


64-19 


79-16# 












SESCTL 


34-24 


37-7# 


37-12 






















SESRTN 


34-30 


37-22# 
























SETC 


1-90 


7-30 


8-62 






















SETERR 


1-37 


6-32 
























SETRBF 


1-2S 


23-5 


23-10# 






















SFWAC 


1-29 


27-5 


27-10# 






















SFWL 


1-30 


29-5 


29-10# 






















SIGBRK 


50-17 


50-37 


81-51# 






















SieWAT 


1-26 


31-12 


46-28 


81-13# 




















SILFET 


1-35 


48-26 
























SLCHK 


27-18 


29-20 


51-25 


53-13 


63-9 


67-14 


78-1 3# 


79-16 












SPACE 


1-78 


60-48 


64 -S3 






















SPCTTY 


1-76 


33-41 


33-73 


34-9 


55-51 


57-9 


61-9 


63-11 


77-12 


78-13 








STOP 


1-60 
43-145 


7-20 
46-10 


9-44 


9-63 


9-137 


12-26 


19-19 


33-16 


33-30 


33-37 


35-52 


43- 


-55 


STPFLG 


1-71 


49-25 
























STRACT 


1-24 
7i-12# 


50-52 


51-53 


53-15 


53-40 


54-30 


55-25 


57-20 


61-20 


62-12 


63-35 


65- 


-71 


STRCHR 


50-59 


63-22 


63-32 


65-65 


65-69 


69-7 


70-9# 


71-13 


72-15 










STRSNG 


51-27 


51-39 


57-13 


61-13 


63-15 


72~J0# 


79 -22 














SUCF2 


1-35 


43-53 
























TAB 


1-66 


20-66 


37-11 


64-48 


64-59 


















TRNSFL 


1-68 


12-52 


14-20 






















TRNSTR 


1-38 


18-52 


19-51 






















TRYCHR 


31~2S# 


81-34 
























TSTTY 


l-6# 


1 -23 
























TTCPL 


1-35 


70-74 
























TTCSCH 


1-85 


2-30 


2-51 


11-14 


1 1 -25 


















TTEOF 


3-25 


3-33# 
























TTFIN 


2-46 


2-72 


3-31 


3-38 


3-'43 


4-4# 
















TTINCP 


1-23 


4S-J.5# 
























TTREAD 


1-25 


3-6# 
























TTYIN 


1-26 


7-5# 
























TTYOUT 


1-26 


6-5# 
























TTZERO 


3-18 


3~37# 
























UHIMEM 


1-85 


5-6 
























UOTSTR 


5-10 


9-114 


11 "9# 






















URO 


1-90 


4-9^ 


5-5 


6-36 


7-36* 


8~41-«- 


8-44* 


8-57« 
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VALADB 

VINTID 

VQUANl 

VTIOO 

VT2007 

VT2008 

VT52 

VTSLCH 

VVLSCH 

VVPWCH 

WINCHR 

WINPRT 

WRITTT 

XHIIN 

XHIOUT 

XHISET 

XRDTIM 

XTCC 

XTERCK 



■88 

•93 
■81 
■84 
•84 
•84 
■84 
•68 
■50 



1-36 
1-52 

1 



25 



1-27 
1-27 
1-27 
8-50 
1-27 



2-8 
33-60 
33—61 
60-50 
60-50 
60-50 
60-50 
12-62 
50-73 
52-14 
17-19 
52-25 
2-6# 
S-34# 
8-1 5# 
8-5# 
S-67# 
8-62# 
8-55# 



2-14 
46-37 
46-38 



60-74 



3-8 



3-13 



5-9 



8-17 



8-36 



8-40 



19- 
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. . . CMl 


40-37 


43-121 


43- 


-127 


45- 


-28 


. . . CM2 


40-37 
45-28 


40-37 


40- 


-37 


40- 


-37 


. . . CM3 


43-24 












. . . CMS 


40-37 


43-121 


43- 


-127 


45- 


-28 


. . . CM7 


40-37 


43-127 


45 


-20 






. PURGE 


1-17# 


43-24 










. READW 


1-17# 


40-37 


43- 


-127 






. REOPE 


1-17# 


43-121 










. WRITW 


1-17# 


45-28 










DISABL 


l-99# 


18-16 


19- 


-30 


31- 


-28 


ENABL 


1-103# 


18-51 


18- 


-57 


19- 


-47 


DCALL 


i-107# 


17-19 


19- 


-25 


33- 


-53 


TTMAP 


1-137# 


18-41 


19- 


-40 


73- 


-38 


TTMAPX 


1-128# 












UNMAP 


1-142# 


18-43 


19- 


-42 


73- 


-44 


UNMAPX 


1~134# 













43-121 



43-127 



43-127 



43-127 



43-127 



45-28 



45-28 



45-28 



46-32 
46-44 
49-34 
74-31 

74-37 



47-15 
47-20 
49-45 



70-40 
47-58 
50-94 



73-37 
70-48 
52-25 



74-30 
73-45 
70-74 



75-40 
74-38 



75-43 



75-60 



